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MAPS  -  A  COMPUTERIZED  MANAGEMENT  ANALYSIS  AND  PLANNING  SYSTEM 
by  Donald  R.  Packe  and  Gil  A.  Raffaeli 
Lewis  Research  Center 

SUMMARY 

MAPS  provides  managers  of  large  technical  projects  with  a  fast  and  economical  in¬ 
formation  system  for  planning  and  controlling  their  projects.  The  program  is  written  in 
FORTRAN  IV  language  and  is  currently  being  run  on  an  IBM  7094  computer.  Input  in¬ 
formation  on  schedules  and  status  is  simultaneously  submitted  at  all  project  levels  and 
is  automatically  collated  by  the  program,  resulting  in  an  easy -to -understand  output. 

Many  optional  features  allow  the  operator  to  tailor  the  program  output  to  local  pref¬ 
erences.  Legends  are  completely  arbitrary  as  are  schedule  calendar  formats.  Special 
line  items  may  be  selected  to  print  out  only  on  limited  listings.  Key  information  may  be 
automatically  summarized.  Excerpted  listings  of  responsibilities  by  individuals  or  or¬ 
ganizational  segments  may  be  generated. 

The  program  is  versatile  and  can  be  used  for  other  listings  such  as  parts  lists,  rec¬ 
ords  of  test  hours,  glossaries,  engineering  work-order  records,  etc.  The  program 
data  can  be  effectively  managed  with  one  part-time  operator.  An  annotated  listing  of  the 
computer  program  is  included  as  an  appendix. 


INTRODUCTION 

MAPS,  a  computerized  Management  Analysis  and  Planning  System  was  developed  at 
the  NASA  Lewis  Research  Center  to  provide  project  managers  of  large  technical  proj¬ 
ects  with  a  fast  and  economical  information  system  for  planning  and  controlling  their 
projects.  The  program  was  developed  after  finding  that  the  planning,  scheduling,  and 
status  updating  by  the  use  of  other  systems  on  a  Lewis  project  were  cumbersome  and 
time  consuming,  especially  when  handling  large  quantities  of  information.  The  MAPS 


program  was  specifically  designed  to  be  a  management  tool  which  could  readily  commu¬ 
nicate  with  all  project  levels,  which  would  be  a  ready  reference  of  up-to-date  project 
information,  and  which  would  require  a  minimum  of  manpower  for  its  maintenance. 

The  MAPS  program  is  in  essence  a  computerized  bar- chart  schedule  reporting  sys¬ 
tem  in  which  the  work  structure  of  a  project  can  be  listed  at  all  levels.  This  system  in¬ 
tegrates  an  item  of  work,  its  schedule,  its  status  against  the  schedule,  the  responsible 
individual,  and  brief  explanatory  comments  about  the  item.  In  addition,  the  relation  of 
any  single  item  to  other  items  in  the  project  is  clearly  shown  by  a  hierarchy  form  of  pro¬ 
gram  organization.  The  structure  of  the  MAPS  program  promotes  a  natural  organiza¬ 
tion  of  all  project  work  elements  and  can  be  used  to  control  down  to  any  level  of  detail 
desired. 

A  key  feature  of  the  MAPS  program  is  that  each  project  work  element  can  be  keyed 
to  a  responsible  individual.  This  is  true  at  all  levels  of  the  work  structure.  The  pro¬ 
gram  can  give  each  individual  a  condensed  listing  on  an  item-by-item  basis  of  the  project 
work  elements  in  his  area  of  the  project;  thus,  each  individual  can  see  exactly  what  his 
project  role  is  and  what  schedule  demands  he  is  working  against.  This  listing  is  also 
helpful  to  management  in  reviewing  manpower  requirements  and  loading. 

Another  key  feature  is  that  the  MAPS  system  is  written  for  fast  updating.  Thus, 
management  review  can  always  be  conducted  with  up-to-date  information.  The  program 
has  been  found  most  effective  when  used  in  conjunction  with  a  biweekly  (every  2  weeks) 
management  review  meeting.  In  the  meeting  the  printouts  serve  as  both  information  and 
as  a  format  from  which  to  conduct  the  meeting.  In  the  printouts,  all  new  or  updated  in¬ 
formation  is  identified  as  a  change  from  the  previous  plan  or  schedule  which  can  be  used 
by  management  as  an  exception  reporting  system.  The  information  on  the  progress  of 
each  project  element  can  be  maintained  on  an  exception  reporting  basis  by  individuals 
who  are  responsible  for  each  work  element  listed. 

Finally,  the  MAPS  program  is  a  resource  saving  tool.  Experience  to  date  has 
shown  that  the  system  for  a  project  involving  100  professional  personnel  can  be  main¬ 
tained  by  an  operator  utilizing  about  one-fourth  his  time.  The  MAPS  program  is  written 
so  that  no  prior  computer  experience  is  required  for  an  operator  to  effectively  implement 
and  maintain  project  computerized  outputs. 

In  addition  to  its  use  in  scheduling  and  review,  the  program  can  be  used  to  collate 
and  list  various  types  of  information.  It  has  been  used  for  drawing  lists,  parts  lists, 
documentation  of  test  data,  engineering  work  orders,  and  others. 

This  report  is  intended  to  show  the  project  manager  the  general  utility  of  this  system 
for  his  application,  to  provide  the  operator  with  complete  information  on  how  to  effec¬ 
tively  utilize  the  program  including  all  its  optional  features,  and  to  provide  those  who 
wish  to  install  its  use  in  their  own  computer  facility  an  annotated  listing  of  the  FORTRAN 
IV  program. 
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DESCRIPTION  OF  THE  PROGRAM  AS  USED  FOR  PLANNING  AND  SCHEDULING 


The  MAPS  program  provides  a  bar- chart  output  for  project  review.  The  format  is 
composed  in  a  form  for  convenient  reading  for  the  user.  Figure  1  illustrates  a  typical 
page  of  MAPS  schedular  output  which  contains  five  major  column  headings.  Reading 
from  left  to  right  a  line  of  output  identifies  the  item  scheduled,  the  planned  calendar 
schedule  applicable  to  that  item,  the  status  of  the  item  against  the  planned  schedule,  a 
comment,  and  the  person  directly  responsible  for  the  item. 

The  organization  of  the  work  elements  is  according  to  a  hierarchal  structure.  This 
permits  an  automatic  recognition  of  both  the  physical  organization  of  the  project  (e.g. , 
part  A  is  an  element  of  subassembly  B,  which  is  in  turn  an  element  of  subsystem  C, 
etc.)  as  well  as  the  line  of  responsibility.  For  convenience  each  item  is  assigned  an  ar¬ 
bitrary  hierarchy  number.  As  ah  example  of  the  organization  implied  by  this  numbering 
system,  item  41D41  BEARING  implies  that  it  is  an  element  of  item  41D  WHEEL  (PRI¬ 
MARY),  which  in  turn  is  an  element  of  item  41  COMPONENTS.  Likewise,  it  implies 
that  LENTZ  is  responsible  for  BEARINGS  to  JOULE,  who  is  in  turn  responsible  for  the 
WHEEL  (PRIMARY)  to  NURTZ,  who  has  overall  responsibility  for  COMPONENTS. 

The  calendar  schedule  is  centrally  located  on  the  page.  The  user  can  vary  the  for¬ 
mat  of  the  calendar  according  to  his  needs.  The  example  shown  in  this  figure  has  been 
found  most  useful  for  regular  detailed  project  review  of  current  status  and  for  near-term 
planning.  The  format  preserves  the  events  of  the  past  6-month  period  summarized  by 
month.  The  present  6-month  period  and  the  following  6-month  period  are  shown  by 
quarter  months  (approximate  weeks)  which  has  been  found  to  be  adequate  detail  for  near- 
term  project  control.  Events  of  1  year  hence  are  carried  by  month  to  permit  some 
longer  range  perspective  on  the  impact  of  present  status. 

In  order  to  keep  the  schedular  information  in  a  compact  form  the  various  activities 
are  coded  according  to  the  legend  printed  at  the  bottom  of  the  page.  This  allows  the 
main  flow  of  activities  to  be  listed  on  a  single  line,  thereby  conserving  the  physical 
length  of  the  printout.  The  legend  used  is  arbitrary  and  may  be  varied  to  suit  the  indi¬ 
vidual  project.  In  addition  to  actual  calendar  schedules,  the  schedule  format  area  may 
also  be  used  for  appropriate  messages  such  as  the  one  shown  on  item  2 IB. 

As  a  visual  aid  to  reviewing  the  schedule  status,  a  cursor  line  of  asterisks  is  posi¬ 
tioned  in  the  schedule  to  show  the  data  of  the  project  schedule  review.  In  figure  1  the 
asterisk  cursor  is  located  under  the  first  quarter  of  December  1970.  Status  of  each 
schedule  line  is  then  measured  relative  to  the  position  of  the  asterisk  cursor.  The  sta¬ 
tus  of  each  scheduled  line  is  visually  presented  by  overprinting  a  diagonal  slash  mark 
across  all  completed  work.  The  position  of  the  rightmost  slash  relative  to  the  asterisk 
cursor  is  then  a  visual  indication  of  actual  status  against  planned  schedule. 
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To  the  right  of  the  schedule  is  the  COMMENT  column  (see  fig.  1)  which  is  used  to 
report  numerically  the  actual  status  of  the  item  against  the  planned  schedule.  The  num¬ 
ber  indicates  the  columns  of  slack  (in  this  case  interpreted  as  weeks)  plus  or  minus  rel¬ 
ative  to  the  report  review  data.  A  brief  six-character  comment  can  accompany  the  num¬ 
erical  status  report.  This  comment  may  also  carry  any  other  information  such  as  total 
running  hours  to  data,  completion  dates,  etc. 

The  rightmost  column  on  the  page  is  the  person  responsible  for  the  item  on  that  line. 
Identifying  each  person  in  this  way  clearly  delineates  work  areas  and  responsibilities, 
and  can  be  further  used  to  automatically  summarize  total  work  load  for  any  or  all  indi¬ 
viduals  listed. 


COMPOSITION  OF  INPUT  DATA  DECK 

This  section  describes  the  preparation  of  the  input  data  deck  in  sufficient  detail  for 
the  beginning  user  to  produce  a  useful  schedular  output.  Additional  program  options  and 
uses  are  discussed  later.  It  is  suggested  that  the  user  become  thoroughly  familiar  and 
reasonably  proficient  with  these  initial  concepts  before  attempting  to  use  the  full  comple¬ 
ment  of  options.  As  mentioned  earlier,  however,  the  MAPS  operator  is  not  required  to 
know  computer  programming  and  can  therefore  proceed  to  use  MAPS  immediately. 

The  program  deck  comprises  five  major  sections:  control  and  format  deck,  identi¬ 
fication  deck,  schedular  deck,  status  deck,  and  by-man  deck  as  shown  in  figure  2.  Fig¬ 
ure  3  shows  the  areas  on  the  output  page  where  the  information  from  these  input  cards  is 
printed. 

The  following  is  a  card-by-card  description  of  the  program  deck  and  instructions  on 
its  use.  Illustrative  examples  are  included.  Reference  to  figures  1  to  4  will  aid  in  un¬ 
derstanding  this  section.  Figure  4  shows  a  detailed  listing  of  each  card  that  produced 
the  printout  in  figures  1  and  3.  Table  I  is  a  condensed  list  of  instructions  for  punching 
each  of  the  input  cards.  This  table  will  be  helpful  to  the  operator  after  becoming  famil¬ 
iar  with  the  details  of  this  report.  In  the  following  sections  the  card  numbers  accom¬ 
panying  the  card  titles  correspond  to  the  card  numbers  in  figures  2  and  4  and  table  I. 


Control  and  Format  Cards 

Program  message  card  (card  1).  -  This  card  is  used  to  print  a  message  at  the  top 
of  every  page.  Beginning  with  column  1,  all  80  spaces  of  the  card  can  be  used  to  show, 
for  example,  the  title  of  the  program,  the  latest  revision  date,  and  the  date  of  the  re¬ 
view. 
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Control  card  (card  2) .  -  The  control  card  is  used  to  select  various  options  within  the 
program.  The  options  of  immediate  interest  are  described  subsequently  and  additional 
options  are  discussed  later.  For  ready  reference  all  options  are  summarized  in  table  I. 

(1)  Asterisk  cursor  in  the  calendar  field  -  This  option  positions  the  asterisk  cursor 
in  the  calendar  field  to  indicate  the  date  of  the  schedule  review  meeting.  The  calendar 
field  is  66  columns  wide.  The  desired  cursor  position  is  indicated  by  the  column  number 
in  this  field  (01  to  66).  This  number  is  punched  in  card  columns  1  and  2.  If  both  col¬ 
umns  1  and  2  are  blank  the  cursor  will  not  be  printed. 

(2)  Slash  overprint  indicating  completed  work  -  As  a  visual  aid  in  reviewing  prog¬ 
ress,  slashes  will  normally  overprint  on  the  schedule  field  legend  marks  indicating  com¬ 
pleted  work.  As  an  option,  if  no  slash  is  desired,  a  1  would  be  punched  in  card  col¬ 
umn  6. 

(3)  New  program  deck  pimchout  -  For  the  convenience  of  the  program  operator,  the 
program  can  automatically  punch  a  new  program  deck  in  correct  sorted  order  and  purge 
any  incorrect  or  obsolete  cards.  In  normal  biweekly  update,  the  operator  may  use  this 
option  to  call  for  a  new  program  deck  after  updating  the  previous  deck.  To  obtain  a  new 
deck  a  1  should  be  punched  in  card  column  35. 

Calendar  heading  cards  (cards  3,  4,  5).  -  Three  cards  are  used  for  the  calendar 
heading.  The  first  66  columns  on  each  card  are  available  to  compose  the  format.  Nor¬ 
mally  column  1  is  not  used  in  order  to  reserve  it  for  a  program  feature  which  will  be  ex¬ 
plained  later. 

The  first  card  (card  3)  is  used  to  specify  the  annual  calendar  and  to  locate  the  dots 
that  separate  years.  The  second  card  (card  4)  is  used  to  specify  the  monthly  calendar, 
with  the  separating  dots  spaced  semi-annually  and  matching  the  yearly  separating  dots 
on  the  previous  card.  The  second  card  also  prints  at  the  bottom  of  the  page.  The  third 
calendar  heading  card  (card  5)  produces  the  remainder  of  the  vertical  separating  dots, 
which  should  be  matched  with  those  on  the  previous  cards . 

The  format  of  these  cards  is  completely  optional  with  one  exception.  The  character 
used  to  generate  vertical  columns  may  only  be  a  period  (.).  In  some  applications  of 
MAPS  the  user  may  want  the  calendar  heading  to  be  blank.  In  this  case  there  must  be 
three  blank  heading  cards  in  the  deck  to  maintain  the  proper  card  sequence. 

Legend  cards  (cards  6,  7,  8).  -  The  MAPS  program  automatically  provides  space 
at  the  bottom  of  each  page  of  the  printout  for  a  two-line  legend.  Each  printed  line  is  120 
character  positions  long,  and  three  cards  are  required  to  print  the  two  line  legend.  The 
first  card  (card  6)  using  all  80  columns  prints  in  the  first  80  spaces  of  the  top  line  of 
legend.  The  first  40  columns  on  the  second  card  (card  7)  prints  out  on  the  last  40  spaces 
of  the  top  line  of  legend.  The  last  40  columns  of  the  second  card  (card  7)  print  on  the 
first  40  spaces  of  the  bottom  line.  The  third  card  (card  8)  prints  out  on  the  last  80 
spaces  of  the  bottom  line. 
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The  legend  characters  are  entirely  optional  with  one  exception:  the  character  used 
to  indicate  a  dormant  period  of  no  activity  between  twb  other  activities  must  be  either  a 
dash  or  blank.  The  overprint  slash  which  indicates  completed  work  will  not  overprint 
either  a  dash  or  a  blank.  In  general,  the  symbols  period  (.),  asterisk  (*),  and  zero  (0) 
should  not  be  a  part  of  the  legend  repertoire  since  they  have  special  program  meaning. 
All  other  symbols  may  be  used.  If  the  legend  is  not  used,  three  blank  cards  must  be  in¬ 
serted  in  the  deck  to  maintain  the  proper  card  sequence. 


ID  Deck  Cards 

Identification  or  cards  (cards  9).  -  The  ID  cards  are  used  to  identify  or  de¬ 

scribe  the  program  tasks  and  the  responsible  organizations,  departments,  or  personnel. 
An  ID  card  must  always  have  an  "S”  in  column  1.  This  is  used  for  card-type  recogni¬ 
tion  to  minimize  inadvertent  input  errors  from  appearing  in  the  printout. 

As  previously  mentioned,  each  item  is  assigned  a  hierarchy  number.  Columns  3  to 
11  are  used  for  this  hierarchy  number  which  must  always  begin  in  column  3.  The  hier¬ 
archy  numbering  system  is  the  organizing  mechanism  used  by  the  program  to  structure 
the  printout.  The  program  provides  for  up  to  six  levels  of  hierarchy.  The  system  of 
hierarchy  identification  is  a  mixture  of  two  digit  numbers  and  single  letters  in  the  se¬ 
quence  number-letter-number- letter-number-letter.  The  leftmost  position  (number)  is 
the  most  significant,  and  the  rightmost  position  (letter)  the  least  significant.  The  two 
digit  numbers  range  from  00  to  99.  The  letters  cover  the  26  letters  A  to  Z.  The  MAPS 
program  will  accept  more  than  one  ID  card  with  the  same  hierarchy  number;  however, 
this  feature  normally  receives  only  limited  use  since  it  confuses  the  implications  of 
hierarchy  for  the  reader. 

A  hierarchy  number  may  be  assigned  at  random.  The  numbers  and  letters  need  not 
be  assigned  consecutively.  For  example,  a  program  with  five  major  categories  might 
select  the  numbers  08,  21,  37,  63,  and  92.  An  advantage  of  such  a  selection  is  that  if  a 
sixth  major  category  should  be  needed  at  a  later  date,  it  can  be  easily  fit  into  the  ex¬ 
isting  numbering  sequence  by  selecting  one  of  the  many  unused  numbers,  say  45.  This 
same  reasoning  applies  to  both  alphabetic  and  numeric  selections  at  all  hierarchy  levels 
(e.g. ,  see  fig.  1). 

In  selecting  a  hierarchy  structure  each  level  of  hierarchy  must  be  filled  down  to  the 
least  significant  level  chosen.  For  example,  a  hierarchy  number  such  as  41D21J21K 
implies  that  there  must  be  additional  ID  cards  with  the  numbers  41D21J21,  41D21J, 
41D21,  41D,  and  41.  Hierarchy  levels  may  not  be  skipped.  The  program  automatically 
checks  for  missing  hierarchy  levels  and  prints  an  error  message  where  the  error  exists. 
The  hierarchy  error  shown  between  items  41L  and  41P15  in  figure  1  indicates  that 
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hierarchy  number  41P  is  missing.  Columns  13  to  42  on  the  ID  card  are  used  to  print  the 
description  of  the  task,  end  items,  function,  etc.  This  field  is  always  30  characters 
long  with  the  indentation  on  the  printout  automatically  performed  by  the  program  accord¬ 
ing  to  the  hierarchy  level.  This  30-column  field  may  contain  any  key-punch  character  or 
blanks. 

Card  columns  44  to  49  are  used  to  name  the  person  or  organization  responsible  for 
the  item  described.  Although  the  program  will  function  if  these  six  columns  are  left 
blank,  it  is  important  to  the  successful  use  of  this  program  that  an  individual  person  (but 
at  least  an  organizational  segment)  be  identified  as  responsible  on  each  ID  card.  This  is 
important  for  management  in  order  to  pinpoint  responsibility.  In  addition,  by  using 
these  names,  a  program  option  (discussed  later)  automatically  extracts  a  condensed  list 
of  project  work  elements  in  each  persons  area.  Names  longer  than  the  six  allowed  char¬ 
acter  spaces  must  always  be  abbreviated  in  exactly  the  same  way  in  order  to  obtain  this 
complete  condensed  listing. 

The  special  name,  TITLE,  is  inserted  in  card  columns  44  to  48  to  create  a  major 
title  within  the  output.  The  lines 

III  1 1  lOi  5iM  I II II II 

in  figure  1  are  an  example  of  such  a  major  title.  A  major  title  always  skips  to  a  new 
page.  This  special  card  should  be  assigned  a  two  digit  hierarchy  number  in  the  hierar¬ 
chy  number  series  which  then  places  it  in  its  desired  location  in  the  output  listing.  The 
title  desired  is  punched  in  columns  13  to  42. 

New  or  updated  ID  cards  are  inserted  into  the  ID  deck  manually.  Replaced  or  out¬ 
dated  ID  cards  are  removed  from  the  ID  deck  manually.  For  ease  of  locating  old  ID 
cards,  it  has  been  found  good  practice  to  always  insert  ID  cards  in  their  proper  hierar¬ 
chy  position  in  the  deck.  This  is  not  essential,  however,  since  the  program  contains  an 
automatic  sorting  routine. 

Asterisk  card  (cards  10,  14,  18,  20).  -  Asterisk  cards  are  used  to  signal  the  end  of 
different  segments  of  the  input  data  deck.  These  cards  simply  have  an  asterisk  (*) 
punched  in  card  column  1.  The  remainder  of  the  card  is  left  blank.  Each  time  the  new 
program  deck  punch  option  on  the  'control  card  is  utilized,  the  date  on  which  the  deck  is 
punched  will  appear  on  the  asterisk  cards  (except  on  card  20)  in  columns  7  to  25.  All 
asterisk  cards  must  be  inserted  as  shown  in  figure  2  for  the  program  to  run  even  if  sec¬ 
tions  beyond  the  ID  deck  are  not  used. 


Schedule  Deck  Cards 

Schedule  cards  (cards  11).  -  Each  schedule  card  must  agree  in  format  with  the  cal¬ 
endar  heading  cards  described  earlier.  Schedule  card  columns  1  to  66  are  used  for  the 
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legend  characters  or  general  messages  which  will  appear  in  the  schedule  field.  As  men¬ 
tioned,  periods  (.)  on  the  calendar  heading  card  (card  5)  supercede  any  legend  charac¬ 
ters  punched  in  the  same  calendar  columns.  Schedule  card  columns  70  to  78  must  con¬ 
tain  the  hierarchy  number  exactly  as  it  is  punched  in  card  columns  3  to  11  on  the  com¬ 
panion  ID  card.  Schedule  cards  may  be  inserted  in  any  hierarchy  order. 

Slash  cards  (cards  12,  16).  -  Two  slash  cards  are  used  in  the  input  data  deck,  one 
in  the  schedule  deck  and  the  other  in  the  status  deck  to  be  discussed  next.  The  function 
of  this  card  is  to  separate  previous  schedule  or  status  cards  from  new  or  updated  cards. 
Like  the  asterisk  card,  a  slash  card  has  only  one  character,  a  slash  in  column  1.  Omis¬ 
sion  of  one  or  both  slash  cards  will  not  prevent  the  program  from  running  but  the  update 
indicator  of  the  cards  that  follow  the  slash  card  will  not  be  printed. 

Schedule  update  cards  (cards  13).  -  The  schedule  update  cards  are  identical  in  for¬ 
mat  to  the  schedule  cards  in  the  schedule  deck.  When  the  user  wishes  to  update  or  re¬ 
vise  a  schedule,  he  prepares  a  new  card  that  represents  his  new  schedule,  but  he  retains 
the  same  hierarchy  number  as  the  old  schedule.  The  updated  schedule  cards  are  placed 
in  the  deck  immediately  following  the  slash  card.  Each  schedule  card  when  located  after 
the  slash  card  will  cause  an  asterisk  (*)  to  print  in  column  1  of  the  calendar  field,  thus 
marking  it  as  a  new  or  changed  input.  Four  of  these  asterisks  may  be  seen  in  figure  1 
on  items  41D21J21B,  41D21J21K,  41D31,  and  41D41.  Schedule  update  cards  may  be  in¬ 
serted  in  any  hierarchy  order.  The  program  automatically  uses  the  last  input  schedule 
or  schedule  update  card  of  any  given  hierarchy  number.  A  schedule  update  card  will 
automatically  cause  any  previous  status  (slack)  as  indicated  on  a  status  card  to  be 
blanked  out.  The  output  listing  will  show  that  the  status  has  been  changed  and  is  now  re¬ 
ported  as  being  on  schedule.  Status  reported  on  status  update  cards  will  not  be  changed. 

The  user  need  not  manually  remove  previous  schedule  cards.  The  computer  auto¬ 
matically  ignores  them  and  discards  them  during  the  punch  out  of  the  new  deck  and  the 
printing  of  the  output. 

Asterisk  card  (card  14).  -  An  asterisk  card  is  located  at  this  position  to  signal  the 
end  of  the  schedule  deck. 


Status  Deck  Cards 

Status  cards  are  used  to  show  schedule  status  with  respect  to  the  planned  schedule. 
Status  is  displayed  in  two  ways,  with  slashes  over  completed  work  (legend  characters) 
and/or  as  a  number  in  the  COMMENT  column.  The  status  card  is  also  used  for  making 
a  brief  comment  which  appears  in  the  COMMENT  column.  As  a  matter  of  practice  it  has 
been  found  advantageous  to  maintain  fixed  schedules  until  the  programmatic  situation 
changes  sufficiently  to  warrant  a  change  of  schedule  projection.  In  this  way  it  is  readily 
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apparent  to  a  manager  when  progress  is  other  than  planned,  thereby  allowing  his  assess¬ 
ment  of  its  impact  on  the  overall  program.  The  operator  should  be  alert  to  persons  who 
tend  to  change  schedules  at  each  update,  rather  than  reporting  status  against  planned 
schedules. 

Status  cards  (cards  15).  -  No  status  card  is  required  for  items  on  schedule,  that  is, 
where  present  activity  is  correctly  indicated  by  the  asterisk  cursor  line.  With  the  use  of 
the  calendar  in  the  example,  status  can  be  thought  of  as  weeks  of  slack  (+  or  -).  The 
program  uses  the  status  number  (weeks)  to  count  calendar  columns  right  or  left  from  the 
asterisk  cursor.  This  positions  the  slash  overprints  to  strike  out  completed  work  only. 
The  slash  (/)  will  not  overprint  a  blank  ( ),  period  (.),  dash  (-),  asterisk  (*),  or  zero  (0) 
due  to  their  special  format  meaning.  In  counting  columns  to  determine  slash  overprint 
position  from  the  asterisk  cursor,  the  program  does  not  count  any  column  containing  a 
period.  This  is  to  allow  vertical  separator  lines  through  the  calendar  using  periods. 

Status  card  columns  1  to  9  are  used  for  the  hierarchy  number.  The  hierarchy  num¬ 
ber  must  always  begin  in  column  1  and  must  be  identical  to  the  hierarchy  number  of  the 
companion  ID  and  schedule  cards.  Columns  15,  16,  and  17  are  used  for  schedule  status. 
A  two  digit  number  is  always  used  (e.g. ,  01,  12)  preceded  by  the  sign  of  the  number 
(+  or  -).  Columns  23  to  28  may  be  used  for  any  cryptic  comments  relevant  to  the  line 
item.  Either  the  status  number  (weeks)  or  the  comment  may  be  left  blank.  Status  cards 
may  be  inserted  in  any  hierarchy  order. 

Slash  card  (card  16).  -  A  slash  card  is  located  in  the  deck  at  this  position  to  separ¬ 
ate  prior  status  cards  from  status  update  cards. 

Status  update  cards  (cards  17).  -  The  status  update  cards  are  identical  in  format  to 
the  status  cards.  Like  the  schedule  update  cards  they  provide  a  means  of  updating  status 
without  the  necessity  of  manually  removing  obsolete  cards  from  the  deck.  It  is  only  nec¬ 
essary  to  add  an  updated  status  card  when  there  is  an  actual  change  in  status  or  comment. 
An  activity  which  was,  for  example,  5  weeks  behind  (-05  status)  in  the  last  reporting  per¬ 
iod  and  is  still  5  weeks  behind  during  the  current  reporting  period  requires  no  update. 

The  status  update  cards  should  immediately  follow  the  slash  card.  Any  status  card 
located  in  this  position  in  the  deck  will  cause  an  asterisk  (*)  to  print  in  the  COMMENT 
column  thereby  marking  the  status  as  new  or  changed.  Two  of  these  asterisks  can  be 
seen  in  figure  1  on  items  4 IB  and  41D31.  Status  update  cards  may  be  inserted  in  any 
hierarchy  order.  The  program  automatically  uses  the  last  inputted  status  or  status  up¬ 
date  card  of  any  given  hierarchy  number. 

Asterisk  card  (card  18).  -  An  asterisk  card  is  located  at  this  position  to  signal  the 
end  of  the  status  deck. 
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By-Man  Deck  Cards 


By-man  cards  (cards  19) .  -  One  of  the  communication  features  of  this  program  is  to 
be  able  to  generate  for  each  individual  a  listing  of  his  responsibilities  and  assignments. 
This  is  accomplished  by  an  automatic  search  through  the  program  deck  for  all  items 
which  show  him  as  being  directly  responsible,  which  are  his  responsibility  as  implied 
by  hierarchy,  or  which  are  higher  levels  of  hierarchy  to  which  he  is  responsible.  As  an 
example,  figure  5  shows  a  by-man  listing  for  BELL.  This  list  is  an  excerpt  from  the 
list  in  figure  1.  In  figure  5,  the  hierarchy  organization  is  meant  to  imply  that  the  RIM 
and  FRICTION  SURFACE  are  parts  of  the  RING  for  which  BELL  is  responsible.  In  the 
same  manner  it  can  also  be  seen  that  the  RING  is  a  part  of  the  OUTER  STRUCTURE 
which  is  a  part  of  the  HOOP  which  is  in  turn  a  part  of  the  WHEEL  (PRIMARY)  which  is  a 
COMPONENT  of  SUN  DIAL  I.  The  hierarchy  organization  is  also  meant  to  imply  that 
technically,  BELL  becomes  responsible  for  LENZ's  work  as  well  as  his  own.  In  addi¬ 
tion,  BELL  must  be  responsive  to  EPDERM  who  must  be  responsive  to  SINGER  who 
must  be  responsive  to  JOULE  who  must  finally  be  responsive  to  HOOKE.  Thus,  work 
elements  of  both  higher  and  lower  hierarchy  are  listed  so  that  BELL  may  view  his  jobs 
and  responsibilities  in  context. 

These  listings  are  obtained  by  inserting  cards  in  the  by-man  deck,  one  card  for  each 
man.  A  blank  by-man  card  may  be  used  to  obtain  a  list  of  all  items  of  unassigned  re¬ 
sponsibility.  The  use  of  by-man  cards  is  optional. 

The  format  of  a  by -man  card  is  simply  the  man  or  organization  name  punched  in 
card  columns  8  to  13,  and  spelled  or  abbreviated  exactly  as  in  the  ID  deck. 

Asterisk  card  (card  20).  -  An  asterisk  card  is  located  at  this  position  to  signal  the 
end  of  the  program  deck. 

This  concludes  the  description  of  a  complete  program  deck  sufficient  to  run  a  basic 
MAPS  listing.  The  features  already  described  are  ample  to  get  a  new  project  organized 
and  the  regular  review  process  underway. 


WORK  SHEET  FORMS 

As  an  aid  to  the  program  operator  in  preparing  inputs  and  updates,  a  set  of  work 
sheets  have  been  prepared  for  the  ID,  schedule,  and  status  cards.  Normally  these  work 
sheets  are  filled  out  by  the  responsible  persons  in  each  area,  approved  by  their  imme¬ 
diate  supervisor,  and  given  to  the  program  operator  for  subsequent  updating  of  the  pro¬ 
gram  deck.  The  work  sheets  are  laid  out  to  correspond  directly  to  the  input  card  column 
requirements.  Master  copies  of  these  work  sheets  are  located  at  the  end  of  this  report 
following  figure  8.  These  may  be  photocopied  for  mass  reproduction  after  filling  in 
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specific  project  information  such  as  project  name  and  calendar  headings. 


SPECIAL  OUTPUT  FOR  PROGRAM  OPERATOR 

Each  time  the  MAPS  program  is  run,  an  additional  page  of  information  useful  to  the 
operator  is  printed  as  the  first  page  of  the  listing.  An  example  of  such  a  printout  is 
shown  in  figure  6.  The  brackets  in  figure  6  are  keyed  by  letters  to  the  headings  in  this 
section.  The  description  of  this  special  output  follows. 

Control  Card  (bracket  A):  All  program  control  card  inputs  are  listed  for  reference. 
Each  option  is  briefly  described. 

Error  Cards  (bracket  B):  Cards  in  error  from  the  ID,  schedule,  and  status  decks 
are  all  listed.  An  ID  card  is  in  error  if  an  S  is  not  punched  in  column  1.  Schedule  and 
status  cards  are  in  error  if  no  ID  card  can  be  located  with  an  identical  hierarchy  number. 
Any  cards  appearing  under  this  heading  are  not  listed  in  the  printout  and  are  automati¬ 
cally  purged  from  the  new  program  deck  if  it  is  selected  to  be  punched. 

Flagged  ID  Cards  (bracket  C) :  This  is  a  list  of  all  flagged  ID  cards  and  shows  the 
specific  flag  configuration  for  each  card.  Flagged  ID  cards  are  discussed  later. 

Responsible  Person  List  (bracket  D) :  This  is  a  complete  list  of  all  the  individual 
names  of  responsible  persons  as  read  from  ID  cards.  It  is  useful  to  detect  different 
spellings  or  abbreviations  of  a  given  individual,  or  to  select  names  for  by-man  listings. 

Valid  ID  Cards  (bracket  E) :  The  MAPS  program  as  written  is  limited  in  any  single 
program  deck  to  a  maximum  of  1000  ID  cards  (line  items).  This  special  output  gives  the 
total  number  of  valid  ID  cards  inputted.  ID  cards  in  error  are  not  included  in  this  total. 
If  more  than  1000  valid  ID  cards  are  inadvertently  inputted,  the  program  processes  the 
first  1000  normally,  totally  ignores  the  excess  over  1000,  and  prints  an  error  message 
to  warn  the  operator. 

Hierarchy  Errors  (bracket  F) :  The  number  of  hierarchy  errors  found  by  the  pro¬ 
gram  are  listed.  The  location  in  the  deck  of  such  errors  may  be  quickly  found  by  scan¬ 
ning  the  printout  for  a  break  in  the  vertical  lines  of  dots  or  asterisks.  An  example  is 
shown  in  figure  1. 


OPERATION  ROUTINE 

It  has  been  found  convenient  to  use  the  following  routine  in  gathering  information, 
processing,  and  distributing  MAPS  to  management  and  individuals. 

Four  Working  Days  Prior  to  the  Review  Meeting:  -  All  new  inputs  are  due  to  the 
operator  at  this  time.  Inputs  are  written  on  specially  prepared  input  work  sheets  (shown 
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following  fig.  8).  Each  individual  is  responsible  to  update  his  own  area  of  responsibility. 

Two  Working  Days  Prior  to  the  Review  Meeting:  -  All  inputs  are  entered  into  the 
deck.  The  program  is  run  for  a  single  proof  copy. 

One  Working  Day  Prior  to  the  Review  Meeting:  -  A  run  is  made  for  multiple  copies, 
one  copy  for  each  attendee  at  the  review  meeting. 

Review  Meeting  Day:  -  The  operator  attends  the  review  meeting  making  notes  of 
changes,  corrections,  and  decisions  which  reflect  adjustments  to  the  schedules.  Follow¬ 
ing  the  meeting,  the  operator  incorporates  the  changes  from  the  meeting  and  runs  by-man 
copies  at  the  same  time  calling  for  a  new  program  deck  to  be  punched  to  be  used  for  the 
next  update . 

One  Working  Day  Following  Review  Meeting  Day:  -  The  operator  passes  out  a  by-man 
copy  to  all  individuals  with  an  additional  copy  of  each  by-man  listing  to  the  individual's 
supervisor. 

The  cycle  repeats.  A  2-week  review  cycle  has  been  found  to  be  optimum  for  a 
project-wide  review. 


ADDITIONAL  PROGRAM  OPTIONS 

This  section  describes  10  additional  program  options  which  may  be  used  individually 
or  in  any  combination. 

1.  Running  with  Multiple  Program  Decks 

It  has  been  common  practice  with  the  writers  to  include  several  program  decks  in 
one  program  execution  in  order  to  disseminate  a  variety  of  information  in  one  document. 
An  example  of  a  typical  run  includes  (1)  an  overall  project  master  schedule  covering  a 
7-year  period,  (2)  the  project  detailed  schedule  covering  6  months  of  history  and  18 
months  of  projection,  (3)  a  glossary  of  project  abbreviation,  and  (4)  a  listing  of  test  hours 
on  all  components.  So  that  this  printout  is  continuous  in  its  reader  information,  a  pro¬ 
gram  feature  allows  suppression  of  the  special  operator  information  printout  between  pro¬ 
gram  decks.  This  is  accomplished  by  punching  a  1  in  column  37  of  the  control  card  of 
the  first  program  deck  only.  Any  ID,  schedule,  or  status  card  error  messages,  or  hier¬ 
archy  error  count  will  continue  to  print  between  program  deck  listings.  This  feature  is 
normally  used  only  for  runs  which  are  for  distribution.  Proof  copy  runs  are  normally 
run  with  all  special  operator  information  printing.  Multiple  deck  setup  is  shown  in  fig¬ 
ure  7.  When  no  by-man  cards  are  used,  care  should  be  taken  to  ensure  that  there  are 
two  asterisk  cards  between  the  status  deck  of  one  program  and  the  first  heading  card  of 
the  following  program. 
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2.  More  Than  1000  Cards  in  ID  Deck 

The  program  is  limited  by  core  storage  of  the  NASA  Lewis  Research  Center  com¬ 
puter  to  a  maximum  of  1000  ID  cards  (item  lines).  Each  ID  card  may,  of  course,  op¬ 
tionally  have  a  schedule  and  status  card.  If  it  is  necessary  to  utilize  more  than  1000  ID 
cards  (item  lines),  two  or  more  program  decks  may  be  run  simultaneously  as  described 
previously.  The  printout  gives  a  continuous  appearance  to  the  reader.  A  caution  should 
be  observed  in  running  in  this  multiple  deck  mode.  Each  program  deck  is  run  by  the 
computer  as  a  separate  entity.  There  is  no  cross  referencing  from  program  deck  to 
program  deck.  Therefore,  a  summary  output  (option  4,  described  subsequently)  will 
only  have  access  to  cards  in  its  immediate  program  deck.  Also  by-man  listings  will 
likewise  only  have  access  to  cards  in  the  immediate  program  deck  in  which  the  by-man 
request  cards  are  located. 

The  control  card  in  the  first  program  deck  should  be  punched  with  a  1  in  column  37. 
This  will  blank  out  operator  information  between  decks  (except  error  cards)  which  will 
make  the  output  appear  as  one  continuous  listing. 

3.  Selective  Printout  by  Flagging 

The  MAPS  program  can  produce  three  different  types  of  output  listings;  total,  by¬ 
man,  and  summary.  Total  and  by-man  listings  have  already  been  discussed.  Summary 
listing  is  described  in  the  next  section.  A  flag  option  is  programmed  to  allow  any  item 
to  print  or  not  to  print  on  any  listing  or  combination  of  listings .  Although  an  item  may  be 
flagged  for  selective  printout,  the  printing  will  not  actually  occur  unless  that  form  of 
listing  has  been  requested  when  the  program  is  run.  The  total  listing  is  automatically 
printed  every  time  the  program  is  run.  A  by-man  listing  is  requested  by  inserting  one 
or  more  by-man  cards  in  the  program  deck.  A  summary  listing  is  requested  by  punch¬ 
ing  a  one  (1)  in  control  card  column  4. 

When  there  is  no  flag  the  item  will  always  print  on  total  and  by-man  listings  and 
never  print  on  the  summary  listing.  When  there  is  a  flag,  the  item  will  print  on  the  list- 
ing(s)  specified  in  table  II.  The  flag  (number)  is  punched  in  ID  card  column  51.  For  ex¬ 
ample,  if  an  item  is  to  be  printed  on  the  by-man  and  summary  listings  but  not  on  the  total 
listing,  a  5  would  be  punched  in  ID  card  column  51. 

At  times  it  may  be  advantageous  to  be  able  to  select  various  groups  of  items  to  be 
listed,  for  example,  there  may  be  different  groupings  of  items  to  be  printed  as  summa¬ 
ries.  The  MAPS  program  permits  up  to  four  such  groupings  by  utilizing  ID  card  columns 
51,  52,  53,  and  54  independently  and  in  exactly  the  same  way  as  described  previously  for 
column  51.  Each  time  the  program  is  run,  a  different  ID  card  column  can  be  chosen  as 
the  basis  for  selective  printout  of  items.  Thus,  column  51  can  be  used  to  flag  grouping 
number  1,  column  52  can  be  used  to  flag  grouping  number  2,  etc.  When  the  program  is 
run,  the  ID  card  flag  column  chosen  for  selective  printout  (i.e. ,  51,  52,  53,  54)  should 
be  punched  in  control  card  columns  10  and  11.  If  control  card  columns  10  and  11  are 
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blank  the  program  will  automatically  assume  column  51  is  to  be  chosen.  Only  one  ID 
card  flag  column  may  be  selected  each  time  the  program  is  run. 

The  explanation  thus  far  of  selective  printout  by  flagging  is  sufficient  to  allow  a  wide 
flexibility  of  its  use.  The  more  experienced  operator  may  wish  to  continue  reading  at 
this  point  to  obtain  a  deeper  understanding  of  the  programming  details  in  order  to  use  the 
option  to  its  fullest  advantage.  To  avoid  confusion,  it  is  suggested  that  the  novice  oper¬ 
ator  skip  directly  to  option  4  (summary  output) . 

The  flag  procedure  as  described  previously  is  based  on  a  preprogrammed  set  of 
printout  selection  masks,  one  for  each  of  the  three  listing  types.  The  program  uses 
these  masks  to  decide  whether  or  not  a  flagged  item  is  to  be  printed.  This  is  done  by 
comparing  bit  by  bit  the  binary  representation  of  the  flag  with  the  binary  representation 
of  the  appropriate  mask.  The  decision  to  print  occurs  whenever  both  binary  representa¬ 
tions  have  a  1  bit  in  at  least  one  of  the  three  bit  positions.  The  binary  representations 
are  as  follows; 


Decimal  number 

Binary  representation 

0 

000 

1 

001 

2 

010 

3 

Oil 

4 

100 

5 

101 

6 

110 

7 

111 

The  three  preprogrammed  masks  have  the  decimal  values  as  follows:  by-man  =  1, 
total  =  2,  and  summary  =  4.  Referring  to  the  previous  chart  shows  that  a  decimal  1  is 
represented  by  a  1  in  the  right  bit  position,  a  decimal  2  by  a  1  in  the  middle  bit  position, 
and  a  decimal  4  by  a  1  in  the  left  bit  position. 

As  an  example  of  how  the  comparison  is  done,  when  a  5  flag  punch  is  compared  to 
the  three  preprogrammed  masks  one  at  a  time  as  shown  in  the  following  chart,  a  match 
of  bits  is  found  in  the  left  bit  position  for  the  summary  mask,  in  the  right  bit  position  for 
the  by-man  mask,  but  no  match  is  found  for  the  total  mask;  thus,  this  item  would  print 
on  summary  and  by-man  listings  but  not  on  the  total  listing. 
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5  Flag  on  ID  card 

Binary 

representation 

1 

0 

1 

By-man  mask{l) 

0 

0 

1 

Total  mask  (2) 

0 

1 

0 

Summary  mask  (4)  ' 

1 

0 

0 

Normally,  the  three  preassigned  mask  values  will  be  adequate  to  accomplish  the 
selective  printouts  desired.  Occasionally  there  may  be  need  to  change  the  built-in  val¬ 
ues  to  accomplish  a  special  function.  The  most  likely  need  would  be  to  print  a  total  list¬ 
ing  of  every  item  in  the  program  deck  whether  flagged  or  not.  This  can  be  accomplished 
by  changing  the  total  mask  from  the  preprogrammed  value  of  2  to  a  value  of  7  (the  7  is 
represented  by  a  1  bit  in  every  bit  position  which  assures  a  match  with  any  flag). 

Any  of  the  three  mask  preprogrammed  values  can  be  changed  by  punching  the  de¬ 
sired  value  into  the  following;  summary  mask  in  control  card  column  22,  total  mask  in 
control  card  column  8,  and  by-man  into  by-man  card  column  1.  If  any  of  these  is  left 
blank  the  program  will  automatically  assign  the  mask  values  by-man  =  1,  total  =  2,  and 
summary  =  4  to  only  the  blank  mask(s).  When  the  program  is  run,  the  actual  mask  value 
used  along  with  the  ID  flag  column  selected  can  be  found  in  the  printout.  The  total  and 
summary  masks  are  found  in  the  special  operator  output,  and  the  by-man  mask  is  found 
at  the  top  of  each  by-man  page. 

4.  Summary  Output 

If  the  masking  feature  described  previously  is  used,  the  program  can  produce  a  list¬ 
ing  of  only  flagged  items  as  a  summary  output  that  appears  ahead  of  the  total  output. 

This  summary  output  is  called  for  by  punching  a  1  in  column  4  of  the  control  card.  Since 
the  lines  of  the  summary  output  may  be  excerpted  from  any  point  in  the  program  and  at 
any  hierarchy  level,  the  arrangement  in  the  summary  output  may  appear  somewhat  dis¬ 
organized.  It  may  therefore  be  desirable  when  using  the  summary  output  to  insert  ID 
cards  which  will  produce  extra  item  headings  to  help  organize  the  summary  information 
and  which  only  print  out  in  the  summary  listing. 

5.  Blanking  of  Hierarchy  Numbers  in  Output  Listing 

It  is  occasionally  desirable  to  blank  out  hierarchy  numbers  on  summary  and  total 
printouts.  An  example  of  this  is  shown  in  figure  8(a).  This  can  be  readily  accomplished 
by  punching  in  control  card  columns  32  and  33  the  highest  hierarchy  number  which  is  to 
be  blanked  out  to  the  printout.  All  hierarchy  numbers  less  than  or  equal  to  the  punched 
number  and  all  its  sublevels  will  then  not  appear  on  the  summary  and  total  printouts. 

This  feature  will  not  blank  out  hierarchy  numbers  on  the  by-man  output. 
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6.  Preventing  the  Slash  Overprint  on  Individual  Item  Schedules 

Within  the  program  printout  it  is  convenient  to  interject  notes  and  comments  in  the 
schedule  field  in  place  of  a  normal  schedule.  For  ease  of  reading,  it  is  desirable  to  pre¬ 
vent  normal  overprinting  with  status  slashes  on  individual  item  lines  where  notes  are  to 
appear.  This  prevention  of  slashes  can  be  accomplished  by  punching  a  period  (.)  in  sta¬ 
tus  update  card  column  15.  This  period  will  eppear  in  the  printout  under  COMMENT  as 
in  item  number  2  IB  in  figure  1. 

7.  Need  Date  Overprint 

In  scheduling  important  items  which  interface  with  other  items  on  the  project  it  may 
be  desirable  to  establish  a  demand  or  needed  completion  date.  This  date  may  be  earlier 
or  later  than  a  planned  expected  completion  date.  In  order  that  this  need  date  may  be 
held  fixed  and  independent  of  any  schedule  changes,  a  feature  is  available  in  the  program 
which  overprints  a  special  character  in  the  same  manner  as  status  slashes.  The  special 
character  takes  precedence  over  a  slash  in  the  same  position  and  will  overprint  the  leg¬ 
end  character. 

The  symbol  to  be  overprinted  at  the  need  date  may  be  selected  by  the  operator.  The 
symbol  desired  should  be  punched  in  column  7  of  the  control  card.  If  column  7  is  blank, 
the  symbol  ^j:  (colon  on  the  key  punch)  will  automatically  be  used. 

If  the  need-date  overprint  is  desired  for  a  given  item,  the  schedule  field  column 
number  (01  to  66)  in  which  the  character  is  to  appear,  is  punched  on  the  schedule  card 
for  that  item  in  columns  67  and  68  (the  column  numbers  zero  to  9  must  appear  as  two 
digits  01,  02,  --,  09). 

If  the  slash  overprint  is  suppressed  with  a  1  in  column  6  of  the  control  card,  the 
need  date  symbol  is  also  suppressed. 

8.  Status  Input  From  the  ID  Card 

Status  information  may  be  added  to  the  program  from  either  the  status  card  or  from 
the  ID  card.  Columns  56,  57,  and  58  on  the  ID  card  serve  exactly  the  same  function  as 
columns  15,  16,  and  17  on  the  status  card.  Likewise  columns  60  to  65  on  the  ID  card 
serve  exactly  the  same  function  as  columns  23  to  28  on  the  status  card.  Status  from  the 
ID  card  should  be  used  only  when  there  is  no  status  card  in  the  deck  with  the  same  hier¬ 
archy  number;  otherwise,  the  status  card  information  will  take  precedence  over  the  ID 
card.  Whenever  a  new  program  deck  is  punched,  the  status  information  added  by  means 
of  an  ID  card  will  automatically  be  transferred  to  a  new  status  card  and  not  punch  out  on 
the  new  ID  card. 

9.  Other  Forms  of  Hierarchy  Numbering 

The  normal  form  for  hierarchy  numbering  is  NN,  L,  NN,  L,  NN,  L  (N  =  numeral, 

L  =  letter).  Automatic  indentation  of  the  descriptions  occur  based  on  these  six  hierarchy 
levels.  Within  the  program  these  hierarchy  characters  are  all  treated  alike  as  alpha¬ 
numeric  symbols:  thus,  any  alpha-numeric  symbol  may  be  used  in  any  hierarchy 
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character  position.  These  symbols  are  sorted  in  the  order  of  precedence  of  the  normal 
FORTRAN  IV  ordering.  This  ordering  is  as  follows: 

0,  1,  2,  .  .  .  . ,  9,  =  ,  A,  B,  .  .  . ,  R,  blank,  S,  T,  .  .  . ,  Z 

This  option  can  be  useful  in  organizing  dictionaries  where  the  hierarchy  word  can  be  the 
exact  word  to  be  sorted.  Examples  of  this  use  are  shown  in  figures  8(h)  and  (j).  This 
option  requires  the  use  of  the  hierarchy  error  message  blankout  described  next.  In  ad¬ 
dition,  if  it  is  desired  to  blank  out  the  hierarchy  numbers  themselves  on  the  output  list¬ 
ing,  two  characters  may  be  punched  into  control  card  columns  32  and  33  as  described  in 
option  5.  The  characters  can  be  numerals,  letters,  or  equal  sign  (=),  and  they  will 
serve  to  blank  all  hierarchy  numbers  of  lower  precedence  (00  is  lowest  precedence  and 
ZZ  is  highest). 

10.  Hierarchy  Error  Message  Blankout 

As  mentioned  earlier,  the  program  requires  levels  of  hierarchy  to  be  continuous 
down  to  the  lowest  one  used.  The  program  automatically  checks  for  this  and  prints  an 
error  message  within  the  output  text  at  any  hierarchy  error  location.  When  using  the 
program  for  special  applications,  such  as  glossary,  parts  list,  engineering  order  list, 
etc. ,  hierarchy  characters  can  be  the  significant  name  or  number  as  described  above 
and  will  in  general  violate  the  hierarchy  levels  requirement.  In  these  special  cases  the 
hierarchy  error  message  may  be  suppressed  by  punching  a  1  in  column  41  of  the  control 
card.  This  will  also  suppress  the  printing  of  the  total  number  of  hierarchy  errors  in  the 
special  operator  information. 


SHIFTING  THE  CALENDAR 

In  order  to  keep  the  calendar  current  with  sufficient  room  for  planning,  the  calendar 
must  be  changed  and  the  schedule  must  be  shifted  to  the  left  on  the  printout  periodically. 
It  has  been  the  practice  to  shift  the  schedule  shown  in  figure  1  every  6  months  when  the 
asterisk  cursor  has  reached  or  passed  column  38.  In  figure  1,  this  corresponds  to  the 
fourth  week  in  January  1971.  It  has  been  found  convenient  to  write  a  special  computer 
program  tailored  to  the  users  particular  schedule  format  to  perform  this  shifting  opera¬ 
tion.  After  the  shifted  schedule  deck  is  punched  and  a  printout  is  run,  all  project  per¬ 
sonnel  are  asked  to  review  the  schedule  in  detail  and  expand  and  extend  the  work  plan. 
This  procedure  saves  the  complete  manual  repunching  of  the  schedule  deck. 


17 


OTHER  PROGRAM  USES 


The  MAPS  program  has  sufficient  flexibility  to  make  it  useful  for  a  variety  of  pur¬ 
poses  where  information  is  to  be  maintained  in  orderly  lists.  Example  of  actual  pro¬ 
gram  uses  are  shown  in  figure  8.  These  include  a  long  range  schedule,  a  long  range 
schedule  keyed  to  project  part  numbers,  a  failure  and  corrective  action  report  index,  a 
report  list,  a  contractor  report  list,  a  drawing  file  index,  a  component  and  system  test 
record,  an  engineering  change  order  list,  a  parts  list,  and  a  glossary.  These  illustrate 
the  flexibility  of  the  "calendar”  field  format  and  of  the  hierarchy  numbering  system. 

The  common  denominator  of  all  the  uses  is  the  ease  of  inserting  and  removing  items  at 
the  appropriate  location  in  a  list. 

When  all  66  calendar  field  columns  are  needed  and  when  there  is  no  need  to  tag  new 
calendar  field  entries  with  an  asterisk  in  column  1  of  the  calendar  field,  the  slash  card 
should  be  removed  from  the  schedule  deck.  Removing  the  slash  card  will  prevent  the 
asterisk  from  appearing  thus  making  all  66  columns  available  for  information. 


EXPERIENCE  WITH  MAPS 

The  MAPS  program  has  been  written  to  provide  a  convenient,  thorough,  and  main¬ 
tainable  project  information  system.  The  program  has  been  used  successfully  for  pro¬ 
ject  review  every  two  weeks  for  four  years  to  coordinate  the  effort  of  200  professional 
and  nonprofessional  personnel.  Once  the  project  information  was  organized,  it  has  re¬ 
quired  approximately  25  percent  of  one  man's  time  for  maintenance  of  the  input  data  and 
operation  of  the  program  for  a  set  of  program  decks  typically  totaling  1100  items.  It  has 
been  found  a  most  effective  tool  for  project  management  and  maintenance  and  dissemin¬ 
ation  of  detailed  project  information.  A  wide  variety  of  lists  including  schedules,  test 
hours,  glossary,  parts  list,  engineering  order  list,  failure  report  list,  and  others  have 
been  conveniently  maintained  by  means  of  the  MAPS  program. 

An  important  feature  of  the  program  is  ease  of  readability  by  the  uninitiated  reader. 
Experience  with  MAPS  indicates  little  difficulty  in  quickly  grasping  the  information 
listed  by  the  program. 

Most  of  all,  the  MAPS  program  has  provided  a  means  to  generate  a  dynamic  docu¬ 
ment  displaying  all  aspects  of  a  complex  project  using  limited  manpower  to  do  so.  This 
documentation  has  provided  a  valuable  management  tool  to  maintain  orderly,  efficient, 
and  coordinated  project  progress. 

Lewis  Research  Center 

National  Aeronautics  and  Space  Administration, 

Cleveland,  Ohio,  November  6,  1970, 

120-27. 
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APPENDIX  -  MAPS  FORTRAN  PROGRAM  LISTING 


$IBFTC  NAPS  DECK 

C  THIS  PROGRAM  IS  CALLED  MAPS»  AN  ACRONYM  FOR  MANAGEMENT  ANALYSIS 

C  AND  PLANNING  SYSTEM.  THE  FOLLOWING  ARE  SOME  SUGGESTIONS  AND  TIPS  ON 
C  IMPLEMENTING  THIS  PROGRAM  ON  YOUR  COMPUTER.  PRESENTLY  IT  IS  RUN  ON 
C  AN  IBM  7094,  A  36  BIT  WORD  MACHINE  WITH  32t768  WORDS  OF  CORE  MEMORY. 

C 

C  THIS  PROGRAM  IS  WRITTEN  IN  FORTRAN  IV  FOR  EXECUTION  ON  A  36  BIT 

C  WORD  COMPUTER.  BY  CUSTOM  WRITING  FOUR  FUNCTION  SUBPROGRAMS  IT  SHOULD 
C  BE  POSSIBLE  TO  USE  THIS  PROGRAM  ON  ANY  COMPUTER  WITH  36  OR  MORE  BITS 
C  PER  WORD.  THE  FOUR  FUNCTIONS  ARE  ACCUMULATOR  RIGHT  SHIFT  (ARS,IARS), 
C  ACCUMULATOR  LEFT  SHIFT  «ALS,IALS),  LOGICAL-AND  (AND),  AND  LOGICAL-OR 
C  (OR).  IN  GENERAL  THESE  FOUR  FUNCTIONS 

C  ARE  USED  TO  STANDARDIZE  WORDS  FOR  MASK  COMPARISON.  IN  SOME  LOCATIONS 
C  THESE  FUNCTIONS  ARE  USED  TO  TRANSFORM  HOLLERITH  NUMBERS  INTO  INTEGER 
C  NUMBERS. 

C 

C  HOLLERITH  MANIPULATION  REPRESENTS  THE  MAJOR  USE  OF  THESE  FUNCTION 

C  SUBPROGRAMS.  IT  IS  EXPECTED  THAT  THE  MAPS  PROGRAM  WILL  EXECUTE  AS 
C  WRITTEN  IF  THE  FUNCTIONS  ARE  CAREFULLY  PROGRAMMED. 

C  HOWEVER,  THE  NUMBER  TRANSFORMATION  SECTIONS 

C  OF  THE  MAPS  PROGRAM  MAY  NEED  TO  BE  REWRITTEN  DEPENDING  ON  YOUR 
C  COMPUTER, S  INTEGER  REPRESENTATION. 

C  STATEMENTS  INVOLVING  NUMBER  TRANSFORMATIONS  ARE  MAPS  138,  166,  170, 

C  173,  AND  OPRINT  32,  34,  36,  38,  117,  119,  120. 

C 


C - FUNCTION  SUBPROGRAM  FOR  LEFT,  RIGHT  SHIFT - 

C  THE  SHIFT  FUNC-TIONS  ASSUME  THAT  ZEROS  WILL  BE  LOADED  INTO  BIT 

C  POSITIONS  MOVED  INTO  THE  REGISTER  BY  THE  SHIFT.  AN  EXAMPLE  OF  USE  FOR 
C  THESE  FUNCTIONS  IS 
C 

C  X=ALS( 24, ARS(12,X)  ) 

C 

C  THIS  STATEMENT  WOULD  TRANSFORM  FOR  EXAMPLE  THE  HOLLERITH  WORD  X==ABCOEF 
C  INTO  THE  HOLLERITH  WORD  X=COOOOO. 

C 

C - FUNCTION  SUBPROGRAMS  FOR  LOGI  CAL-AND,  OR - 

C  THE  LOGICAL-AND  AND  LOGICAL-OR  FUNCTIONS  ARE  USED  TO  TRANSFORM  TWO 


C  WORDS  INTO  A  THIRD  WORD  CONSIDERING  EACH  BIT  OF  THE  36  BIT  WORD 
C  SEPARATELY.  THESE  FUNCTIONS  OPERATE  SIMULTANEOUSLY,  HOWEVER,  ON 
C  ALL  36  BITS.  THE  LOGICAL  OPERATIONS  FOR  ONE  BIT  POSITION  ARE 


c 

SUMMARIZED  AS 

FOLLOWS 

c 

c 

LOGICAL-AND 

LOGICAL-OR 

c 

X=ANO{ A,B) 

X 

=0R{ A,B) 

c 

A=  0  0 

1 

1 

A  = 

0 

0  1 

1 

c 

6-0  1 

0 

1 

B- 

0 

1  0 

1 

c 

X-  0  0 

0 

1 

X= 

0 

1  1 

1 

C 

C  THESE  rWO  FUNCTIONS  ARE  USED  FOR  MASKING  AND  COMPOSING  HOLLERITH 
C  WORDS. 

C 

C  SINCE  CONSIDERABLE  HOLLERITH  MANIPULATION  IS  DONE  BY  THE  PROGRAM 

C  THE  MACHINE  OCTAL  REPRESENTATIONS  FOR  HOLLERITH  CHARACTERS  IS  LISTED 
C  HERE  FCR  REFERENCE.  THESE  ARE  USED  TO  COMPOSE  SOME  OF  THE  OCTAL  MASKS 
C  IN  THE  PROGRAM. 


MAPS  1 

MAPS  2 

MAPS  3 

MAPS  4 

MAPS  5 

MAPS  6 

MAPS  7 

MAPS  8 

MAPS  9 

MAPS  10 

MAPS  11 

MAPS  12 

MAPS  13 

MAPS  14 

MAPS  15 

MAPS  16 

MAPS  17 

MAPS  18 

MAPS  19 

MAPS  20 

MAPS  21 

MAPS  22 

MAPS  23 

MAPS  24 

MAPS  25 

MAPS  26 

MAPS  27 

MAPS  28 

MAPS  29 

MAPS  30 

MAPS  31 

MAPS  32 

MAPS  33 

MAPS  34 

MAPS  35 

MAPS  36 

MAPS  37 

MAPS  38 

MAPS  39 

MAPS  40 

MAPS  41 

MAPS  42 

MAPS  43 

MAPS  44 

MAPS  45 

MAPS  46 

MAPS  47 

MAPS  48 

MAPS  49 

MAPS  50 

MAPS  51 

MAPS  52 

MAPS  53 

MAPS  54 

MAPS  55 

MAPS  56 
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c 

HOL 

DCT 

HGL 

OCT 

HOL 

OCT 

HOL 

OCT 

HOL 

OCT 

c 

_ 

— 

— 

— 

— 

— 

— 

— 

— 

— 

c 

0 

00 

A 

21 

K 

42 

U 

64 

= 

13 

c 

1 

01 

B 

22 

L 

43 

V 

65 

/ 

61 

c 

2 

02 

C 

23 

M 

44 

w 

66 

« 

54 

c 

3 

03 

D 

24 

N 

45 

X 

67 

+ 

20 

c 

4 

04 

E 

25 

0 

46 

Y 

70 

- 

40 

c 

5 

05 

F 

26 

P 

47 

Z 

71 

= 

72 

c 

6 

06 

G 

27 

0 

50 

• 

33 

f 

14 

c 

7 

07 

H 

30 

R 

51 

» 

73 

$ 

53 

c 

8 

10 

I 

31 

S 

62 

) 

34 

BLANK 

60 

c 

9 

11 

J 

41 

T 

63 

( 

74 

12 

c 

C  ALL  STATEMENTS  IN  THE  PROGRAM  WHICH  INVOLVE  LOGICAL  OPERATIONS 

C  I.e.  ALS,  lALS,  ARS.  lARS.  AND,  OR,  ARE  PRECEEDED  BY  THE  COMMENTS  CARD 
C 

c  LOGICAL  STATEMENT  FOLLOWS 

C 

C  DUE  TO  THE  DECK  SIZE, THIS  PROGRAM  USES  OVERLAY  AMONG  SUBROUTINES 
C  CHECK, PUNOUT, PICK, OPRINT,  AND  SORTER. 

C 

C  THE  VARIABLES  01,  02,  ETC.  IN  READ  STATEMENTS  110,  124,  AND  128  ARE 
C  USED  ONLY  WHEN  PRINTING  ERROR  CARDS. 

C 

C 

DATA  FBL,FIF/6H  0000, 2H51/ 

DATA  TAXX/0777777777770/ 

DATA  INEED/0120000000000/ 

DATA  XMAN(200)/6HBLANK  / 

DATA  KSA/0/ 

DATA  SLASH/IH// 

DATA  IN/0000000000001/ 

DATA  TX0/a000000000002/ 

DATA  ROXl , ROX2/6H»00 000, 0007777777777/ 

DATA  T A ST, T A SX/6H000* 00, 0777 777000000/ 

DATA  T0T,E0UAL/5HTITLE,6H======/ 

DATA  SY, AST,BLANK,MSK1,MSK2,BNKI,BNK2,DASH,ASTQ,CEEQ,BANK,FLQ/1HS, 
11H», IH  ,000000000007 7, 00 0000 000 7 777, 0000000000060, 0000000006060, 6H 

2 - ,0000000000054,0777777777700,0606060606060,0606060606054/ 

DATA  MSK(l,l),MSK{l,2),MSK(l,3),MSK(l,4),MSK(l,5),MSK(l,6),MSKt2,l 
1),MSK(2,2),MSK(2,3),MSK(2,4) , MSK ( 2 , 5 ) , MSK ( 2 , 6 ) /0777700000000 ,07777 
277000000,0777777777700,0777777777700,0777777777700,0777777777700,0 
3 COO 0000 00 000, 000 00000 000 00, 000 0000000000, 0770000000000, 0777777 00 00 
400,0777777770000/ 

DATA  XNPX/0000000777777/ 

DATA  SYB/0120000000000/ 

DATA  MXK/6H000000/ 

DATA  TASO/0000000770000/ 

DATA  ROX3/0770000000000/ 

DIMENSION  ZMAN(20),  XLGND(42),  H(8) 

DIMENSION  SPl(ll),  SP2(11) 

DIMENSION  MSPKll),  MSP2(11) 

DIMENSION  HEADKll),  HEAD2(11),  HEAD3(11) 

DIMENSION  GEN(2,  1000),  T  ITLE ( 5 , 1000 )  ,  RSP(IOOO),  CODEIIOOO),  STATI 
11000),  COMENT ( 1,  1000 ) ,  KOUNT(lOOl).  XMAN(200),  XORG(IOO),  SKEDIll) 
2,  SCHDI 11,  1000) ,  TAME(3),  HEADNG(14) 

DIMENSION  MSK(2,6),  IZAM(2) 

EQUIVALENCE  I  MSP  1 ( 1 ) , SPl  ( 1 ) ) ,  ( MSP2 I  1 ) , SP2 ( 1 ) ) ,  ( KLANK , BLANK ) 

EQUIVALENCE  ( H ( 1  )  . KOLUMN  )  ,  (H(2),KEND),  1 H ( 3  )  , I ZAM ( 1 ) )  ,  IH(8),KPUN 

ICH),  (H(5),KTI),  (Ht6),K8IN),  (H(7),N0HE),  (B,NB) 

COMMON  NUMBER, GEN,  SCHD,L  INE,KOLUM.M 
COMMON  TITLE,RSP,CnDE ,STAT,COMENT 
COMMON  KOUNT 
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REAL  IN.MANL.MAINLtMASUM.MXK 


BEGIN  EXECUTABLE  PROGRAM 
PROGRAM  MESSAGE  CARO  (CARO  1) 

1  REAO  (5,166)  HEAONG 

IF  (KSA.EQ.O)  WRITE  (6,167)  ( OASH, J= 1 , 22 ), BLANK 

CONTROL  CARO  (CARO  2) 

REAO  (5,168)  KOLUMN, KENO, IZAM,MAINL,MASUM, XNPR,KPUNCH,KTI ,KBIN,NOH 
IE 

KPUN=KPUNCH 


KTM=0 

KERR=0 

LOGICAL  STATEMENT  FOLLOWS 
H(8)=ARS(33,ALS(9,KPUNCH)) 

IF  (KPUNCH.GT.O)  PUNCH  166,  HEAONG 

IF  (KPUNCH.GT.O)  PUNCH  168,  KOLUMN, KENO , I ZAM ,MA INL , MASUM ,XNPR,KPUN 
l,KTI,KBIN,NOHE 

IF  (IZAM(2).EQ.KLANK)  IZ AM ( 2 )= INEEO 
IF  (KSA.EQ.O)  WRITE  (6,169)  KOLUMN, KENO, IZAM( 1 ) 

KSET=1 

SUBROUTINE  FLAG  WITH  KSET=1  ASSIGNS  THE  TOTAL  ANO  SUMMARY  LISTING 
MASKS  ANO  THE  10  CARD  FLAG  COLUMN. 

CALL  FLAG  ( M A I NL , MASUM , M ANL , CODE , L I NE , MANOUT ,KENO , KGT, KSET ) 

LOGICAL  STATEMENT  FOLLOWS 
FLGU=ALS( 24, ARS( 12,MAINL  ) ) 


IF  (XNPR.EQ. BLANK)  XNPR=MXK 

IF  (KSA.EQ.O)  WRITE  (6,170)  I ZAM ( 2 ) , SYB , MA I NL , FLGU , MASUM 

IF  (KSA.EQ.O)  WRITE  (6,171)  XNPR,KPUN,KTI ,NOHE 

LOGICAL  STATEMENT  FOLLOWS 
B=ARS(33,ALS(3,H(1)) ) 

DO  102  JH=1,7 
IF  (JH.EQ.4)  GO  TO  102 
C  LOGICAL  STATEMENT  FOLLOWS 

H( JH)=ARS(32,ALS(3,H( JH) )) 

102  CONTINUE 

C  LOGICAL  STATEMENT  FOLLOWS 

KOLUMN=KOLUMN+10»NB 

IF  (KOLUMN. LT.O. OR. KOLUMN. GT. 66)  K0LUMN=0 
KOLUMM=KOLUMN 

C  LOGICAL  STATEMENT  FOLLOWS 

XNPR=OR( ARS(6,XNPR), XNPX  ) 

MAN0UT=0 

JPAGE=0 
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IF  (KOLUMN.EQ.O)  GO  TO  104 
CEEP=CEEO 
FLP=FLO 
ASTR=ASTQ 
KRK=(K0LUMN+5)/6 
K0L=K0LUMN-6*KRK+6 
KSHFT=36-6»K0L 

C  LOGICAL  STATEMENT 

SRK=ALS(KSHFT,MSK1 ) 

C  LOGICAL  STATEMENT 

BRK=ALS(KSHFT,BNK1) 

C  LOGICAL  STATEMENT 

ASTR=ALS<KSHFT,ASTR) 

IF  IK0L.EQ.6)  GO  TO  104 
DO  103  J=K0L.5 

C  LOGICAL  STATEMENT 

FLP=OR( ALS(6,FLP),BNK1) 

C  LOGICAL  STATEMENT 

103  CEEP=0R<ALS(6,CEEP),MSK1 

104  CONTINUE 
C 

C  CALENDAR  HEADING  CARDS  (CARDS  3,4,5) 

READ  (5,172)  ( HEADK J ) , J =1 , 1 1 ) , ( HE AD2 ( J ) , J  =  1 , 1 1 ) , ( HE AD3 ( J ) , J=1 , 1 1 ) 

C 

IF  (KPJNCH.GT.O)  PUNCH  172,  ( HE ADI ( J ) , J=1 , 1 1 ) , ( HEAD2 ( J ) , J=1 , 1 1 ) , ( H 
1EAD3(J) ,J=1, 11) 

C 

C  LEGEND  CARDS  (CARDS  6,7,8) 

READ  (5,173)  XLGND 
C 

IF  (KPUNCH.GT.O)  PUNCH  173,  XLGND 
C 

DO  105  J0Z=1,11 
MSP1(JQZ)=0 

105  MSP2(J0Z)=0 

DO  109  JQZ=1,11 
MSR=MSK(2,4) 

C  LOGICAL  STATEMENT  FOLLOWS 

PER=ALS(30,BNK1) 

DO  108  J0X=1,6 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (AN0(HEAD3( JQZ),MSR).NE.PER)  GO  TO  106 
C  LOGICAL  STATEMENT  FOLLOWS 

SPK  JOZ)=OR(MSP1(JQZ  )  ,MSR) 

GO  TO  107 

C  LOGICAL  STATEMENT  FOLLOWS 

106  SP2 ( JOZ ) =0R ( MSP2 ( JOZ ) , ANDI HEAD3( JQZ ) , MSR ) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

107  PER=ARS(6,PER) 

C  LOGICAL  STATEMENT  FOLLOWS 

108  MSR=IARS(6,MSR) 

109  CONTINUE 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (KOLUMN-NE.O)  HEAD3 ( KRK ) =0R ( ASTR, ANDI HEAD3 ( KRK ) ,CEEP ) ) 

C 

IF  (KSA.EQ.O)  WRITE  (6,174) 

C 

C  **•*  START  ID  CARD  READ 
XMANd  )  =  BANK 
MAN  =  1 
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DO  119  J=l,999 


C 

C  ID  DECK  (CARDS  9),  AND  ASTERISK  CARD  (CARD  10) 

110  READ  (5,175)  ST , 0 1 ,  (  GEN ( K, J ) , K= 1 , 2 ) , Q2, ( TI TLE ( K , J ) , K=1 , 5 ) , Q3 , RSP ( J 

1) ,Q4,C0DF( J) ,05,STAT{ J),Q6, (C0MENT(K,J),K=1,1) ,Q7,C38,Q9 


IF  (ST.EQ.SY)  GO  TO  111 
IF  1ST. EQ. AST)  GO  TO  121 


WRITE  (6,176)  ST,Q1, (GEN(K,J),K=1,2) ,Q2,(TITLE(K,J),K=1,5),Q3,RSP( 
1J),Q4,C0DE(J),Q5,STAT( J) ,06, ( COMENT ( K, J ) , K=1 , I ) , 07 .08,09 

C 

KERR=1 
GO  TO  110 

111  IF  (GEN(2,J).E0. BLANK)  GO  TO  112 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  ( AND(HSK1 , ARS ( 12, GEN( 2, J ) ) ) .NE.BNKl)  GO  TO  113 
C  LOGICAL  STATEMENT  FOLLOWS 

IF  ( AND ( MSK2, ARS ( 18, GEN( 2, J ) ) ) .NE.BNK2 )  GO  TO  114 
KOUNT( J)=4 
GO  TO  117 

C  LOGICAL  STATEMENT  FOLLOWS 

112  IF  ( AND ( MSk2 , ARS (6,GEN( 1 , J ) ) ) .NE.BNK2)  GO  TO  115 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (AND(MSK1,ARS( 18,GEN( 1,J) )) .NE.BNKl)  GO  TO  116 
C  LOGICAL  STATEMENT  FOLLOWS 

IF  (AND(MSK2, ARS(24,GEN( 1, J ) ) ) .EQ.BNK2)  GO  TO  116 
KOUNT( J)=l 
GO  TO  117 

113  K0UNT(J)=6 
GO  TO  117 

114  K0UNT(J)=5 
GO  TO  117 

115  K0UNT(J)=3 
GO  TO  117 

116  K0UNT(J)=2 

117  DO  118  JMAN=1,MAN 

IF  (XMAN( JMAN) .EQ.RSP ( J )  )  GO  TO  119 

118  CONTINUE 
MAN=MAN+1 
XMAN(MAN)=RSP( J) 

119  CONTINUE 
C 

WRITE  (6,177) 

C  THIS  READ  SEARCHES  ONLY  FOR  THE  ASTERISK  (CARD  10)  IF  MORE  THAN  1000 
C  ID  CARDS  HAVE  BEEN  ALREADY  READ  IN 

120  READ  (5,178)  QXJ 
C 

IF  (QXJ. NE. AST)  GO  TO  120 
C 

C  ALL  CARDS  READ  IN  AND  BAD  CARDS  REJECTED 

121  NUMBER=J-1 
C 

C  SORTER  SORTS  CARDS  INTO  ASCENDING  HIERARCHY  ORDER 
CALL  SORTER  (KXM) 

C 

C  CHECK  LOOKS  FOR  HIERARCHY  ERRORS 
CALL  CHECK  (KXM) 

C 
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IF  (KSA.EQ.O)  WRITE  (6,179) 

C 

C  *♦**  START  SCHEDULE  CARD  READ 
DO  123  LX=l,ll 
DO  122  JX=1, NUMBER 

122  SCHD(LX, JX )=HEAD3(LX ) 

123  CONTINUE 
KOG  =  0 

C 

C  SCHEDULE  UPDATE  DECK  INCLUDING  SCHEDULE  CARDS,  SLASH  CARD,  SCHEDULE 
C  UPDATE  CARDS,  AND  ASTERISK  CARD  (CARDS  11,12,13,14) 

124  READ  (5,180)  ( SK ED ( J ) , J= 1, 1 1  )  , ANEED, Q1 , GEN  1 , GEN2 , Q2 
C 

IF  (SKED(  D.EQ.AST)  GO  TO  127 
IF  (SKED(l).EQ. SLASH)  K0G=1 
IF  (SKED(l).EQ. SLASH)  GO  TO  124 
KFLAG=0 

DO  126  JJ=1, NUMBER 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (GENl.NE. AND(GEN( 1 , JJ ),TAXX) )  GO  TO  126 
IF  (GEN2.NE.G£N(2, JJ ) )  GO  TO  126 
C  LOGICAL  STATEMENT  FOLLOWS 

GEN( 1, JJ)=OR(GEN( i,JJ ) .TXQ ) 

C  LOGICAL  STATEMENT  FOLLOWS 

CODE( JJ )=0R( ALS(12,ARS( 12,C0DE( JJ) )), ARS ( 24, ANEED ) ) 

KFLAG=1 

DO  125  JR=1,11 

C  LOGICAL  STATEMENT  FOLLOWS 

125  SCHU( JR, JJ)=0R(MSP2( J R ) , AND ( MSP  1 ( JR ) ,SKED( JR) ) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (KDLUMN.GT.O.AND. AND( SCHD ( KRK , J J ) , SRK ) . EQ . BRK )  SCHD ( KRK, J J ) =0R ( 
1ASTR,AND{SCHD(KRK, JJ ) ,CEEP) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (KOG.EO.l)  SCHD(1,JJ)=0R(R0X1,AN0(R0X2,SCHD(1,JJ) ) ) 

126  CONTINUE 

IF  (KFLAG.EQ.l)  GO  TO  124 
C 

WRITE  (6,181)  (SKED( J) , J=1 , 1 1 ), ANEED, Q1 , GENl , GEN2, Q2 
C 

KERR=1 
GO  TO  124 

127  CONTINUE 

IF  (KSA.EQ.O)  WRITE  (6,179) 

C 

C  ****  START  STATUS  CARD  READ  »*** 

K0G=0 

C 

C  STATUS  DECK  INCLUDING  STATUS  CAROS,  SLASH  CARD,  STATUS  UPDATE  CARD, 

C  AND  ASTERISK  CARO  (CARDS  15,16,17,18) 

128  READ  (5,182)  GEN  1 , GEN2 , Q 1, WKS, 02 1 COTl , 03 , 04, 05 , Q6. Q7, Q8, Q9, 010 , U1 1 
C 

IF  (GENl. EQ. AST)  GO  TO  130 
IF  (GENl. EQ. SLASH)  K0G=1 
IF  (GENl. EO. SLASH)  GO  TO  128 
DO  129  JJ=1, NUMBER 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  {GEN1.NE.AND(GENI 1,JJ),TAXX) )  GO  TO  129 
IF  (GEN2.NE.GEN(2,JJ) )  GO  TO  129 
STATIJJ )=WKS 

C  LOGICAL  STATEMENT  FOLLOWS 
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IF  (KOG.EO.l)  STAT(JJ)=OR(TAST,ANO{STAT(JJ)»TASX) ) 

COMFNTI It JJ)=C0T1 
GO  TO  128 

129  CONTINUE 
C 

WRITE  (6,  183)  GENl,GEN2,eifWKS,Q2,COTltQ3,Q4,Q5,Q6,Q7,Q8,Q9,Q10,Ql 
11 
C 

KERR=1 
GO  TO  128 

130  DO  131  JJ=1, NUMBER 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  ( ANDISCHDI It J J ) tR0X3) .NE . ROX l.OR. AN0( STAT ( J J ) t TASQ ) . EQ. TAST.OR. 
ISTATIJJ ).E0. BLANK)  GO  TO  131 
C  LOGICAL  STATEMENT  FOLLOWS 

STAT(JJ)=0R(TAST,AN01 BLANKtTASX) ) 

131  CONTINUE 
C 

IF  (KERR. EQ.O. AND. KSA.EQ.O)  WRITE  (6tl84)  BLANK 

RUNOUT  PUNCHES  A  NEW  ID, SCHEDULEt AND  STATUS  DECK 
IF  (KPUNCH.GT.O)  CALL  RUNOUT 

PICK  LISTS  THOSE  CARDS  WITH  A  NON  BLANK  FLAG  FIELD  (CC  51-54)  ON 
THE  ID  CARD 

IF  (KSA.EQ.O)  CALL  PICK  (GEN .CODE, NUMBER ) 

IF  (KSA.EQ.O)  WRITE  (6,185)  ( XMAN ( JAB ) , JAB=1 , MAN ) 

IF  (KSA.EQ.O)  WRITE  (6,186)  NUMBER 
IF  (KXM.NE.O. AND. NOHE. EQ.O)  WRITE  (6,187)  KXM 


****  START  OF  PROCESSING  **** 

132  CONTINUE 
LINE=1 
KSET=2 

C  SUBROUTINE  FLAG  WITH  KSET=2  ASSIGNS  THE  BY-MAN  LISTING  MASK. 

CALL  FLAG  ( MA INL , MASUM, M ANL, CODE,L INE, MANOUT ,KEND , KGT,KSET ) 

C 

133  JPAGE=JPAGE+1 
C 

WRITE  (6,188)  HEADNG 
C 

IF  (XMAN(l).EQ. BLANK)  JMAN=200 
C 

IF  (MANOUT. EQ. 1 )  WRITE  (6,189)  XMAN( JMAN ) , MANL 
C 

IF  ( JMAN. EQ. 200)  JMAN=1 
C 

WRITE  (6,  190)  (HEAOK  KPX  ),KPX=1, 11 ) , (HEAD2(KPX) , KPX=1 , 1 1 ) , (DASH, J= 

11,22) 

C 

LNT=0 

IF  (MANOUT. EQ.l)  LNT=2 
GO  TO  135 

134  LINE=LINE+1 

135  IF  (LINE. GT. NUMBER)  GO  TO  163 
IF  (MANOUT. EQ.O)  GO  TO  139 
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IF  (RSP(LINE).6Q.XMAN(JMAN) )  GO  TO  136 

MAPS 

420 

GO  TO  137 
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c 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 
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136 

IF  (K0UNT(LINEI.GT.KIX.AN0.AND(GEX1,MSK(1,KIX) ).EQ.AND(GEN(1,LINE) 

MAPS 

423 

l.MSKtl.KIxn .AN0.AND(GEX2,MSK(2,KIX) ) .EO . AND ( GEN ( 2 t L INE ) , MSK ( 2 

vKIX 

MAPS 

424 

2) ) )  GO  TO  140 

MAPS 

425 

KIX=KOUNT(LINE) 

MAPS 

426 

GEX1=GEN( ItLINEI 

MAPS 

427 

GEX2=GEN(2,LINE) 

MAPS 

428 

GO  TO  140 

MAPS 

429 

137 

KXXL=KOUNT(LINE) 

MAPS 

430 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

431 

IF  (KXXL.GT.KIX.ANO. AND(GEX1,MSK( l.KIXI )-EQ.ANO(GEN( l.LINE) ,MSK(1, 
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IK  IX) ). AND.AND(GEX2,MSK(2,KIX ) ) . EQ. AND! GENI 2 , L I NE ) , MSK { 2 . K I X ) ) ) 

GO 

MAPS 

433 

2T0  140 

MAPS 

434 

IF  (GEXl. EQ. GENI 1, LINE) .AND. GEX2.EQ.GEN(2t LINE  )  )  GO  TO  160 

MAPS 

435 

DO  138  JKMA=LINE, NUMBER 

MAPS 

436 

IF  (KOUNTI  JKMA+D.LE.KXXL)  GO  TO  160 

MAPS 

437 

IF  (RSPIJKMA  +  D.EO.XMANIJMAN))  GO  TO  140 

MAPS 

438 

138 

CONTINUE 

MAPS 

439 

GO  TO  160 

MAPS 

440 

139 

CONTINUE 

MAPS 

441 

140 

NUM=KOUNT{LINE) 

MAPS 

442 

KSEr=3 

MAPS 

443 

C  SUBROUTINE  FLAG  WITH  KSET=3  DECIDES  WHEN  A  CARO  SHOULD  PRINT. 

MAPS 

444 

CALL  FLAG  ( M A INL , MASUM, M ANL , CODE tL INE . MANOUT , KEND . KGT ,KSET) 

MAPS 

445 

c 

MAPS 

446 

IF  (KGT.EQ.l)  GO  TO  160 

MAPS 

447 

IF  ITOT.NE.RSPILINE) )  GO  TO  141 

MAPS 

448 

IF  (MANQUT.EQ.l)  GO  TO  160 

MAPS 

449 

c 

MAPS 

450 

WRITE  (6,191)  ( (HEAD3 (KPX)  .KPX  =  1, 11) ,K=1,2) , ( EQUAL , K=1 ,6 ) , (HEAD3 IK 

MAPS 

451 

IPX) ,KPX  =  1, 11) , (TITLE (KPX, LINE),KPX  =  1,5) , (HEAD3(KPX) ,KPX=1,11)  , 

(EQU 

MAPS 

452 

2AL,KPX=1,6) , (HEAD3(KPX ),KPX=1, 11) 

MAPS 

453 

c 

MAPS 

454 

LNT=5 

MAPS 

455 

GO  TO  160 

MAPS 

456 

141 

TEMX1=GEN( l.LINE) 

MAPS 

457 

TEMX2=GEN(2,LINE) 

MAPS 

458 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

459 

IF  ( ARS(6, GENI l.LINE )) .GT.XNPR.OR.MANOUT.EQ. 1)  GO  TO  142 

MAPS 

460 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

461 

GENI 1,L INE )=0R( BLANK .and (GENI l.LINE), IN)) 

MAPS 

462 

GEN(2,LINE)=BLANK 

MAPS 

463 

c 

MAPS 

464 

c 

MAPS 

465 

c 

.***  START  OF  SCHEDULE  OUTPUTING  **** 

MAPS 

466 

142 

IF  (NUM-2)  145,149,143 

MAPS 

467 

143 

IF  (NUM-4)  151,153,144 

MAPS 

468 

144 

IF  (NUM-6)  155,157,157 

MAPS 

469 

145 

IF  (LNT.LT.38)  GO  TO  147 

MAPS 

470 

IF  (MANOUT.EQ. 1 )  GO  TO  161 

MAPS 

471 

KKX=1 

MAPS 

472 

DO  146  JX=LINE, NUMBER 

MAPS 

473 

IF  (KOUNTI  JX  +  D.EQ.l. AND. LNT.LE. 44)  GO  TO  147 

MAPS 

474 

IF  (KKX.GT. (44-LNT) )  GO  TO  161 

MAPS 

475 

146 

KKX=KKX+1 

MAPS 

476 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

477 

147 

IF  (ANDIGENI l.LINE), IN). EQ. 0.0. OR. NOHE.EO.l)  GO  TO  148 

MAPS 

478 

C 

MAPS 

479 

26 


WRITE  (6,192) 

MAPS 

48D 

c 

MAPS 

481 

LNT=LNT+1 

MAPS 

482 

c 

MAPS 

483 

148 

WRITE  (6,193)  ((HEAD3(KPX),KPX=1,11).KPZ=1,2) 

MAPS 

484 

C 

MAPS 

485 

WRITE  (6,194)  GEN{1,LINE  ), ( T ITLE ( KX, L INE ) , KX=1 , 5 ) ♦ ( SCHD ( KX , L INE ) , K 

MAPS 

486 

1X=1,11),STAT(LINE),{C0MENT(KX,LINE),KX=1,1),RSP(LINE) 

MAPS 

487 

C 

MAPS 

488 

C  ' 

OPRINT  SETS  UP  AND  PRINTS  THE  SLASH  AND  NEED  DATE  SCHEDULE  OVERPRINT 

MAPS 

489 

CALL  OPRINT  ( ST AT { L I NE  ) , IZ AM ) 

MAPS 

490 

C 

MAPS 

491 

WRITE  (6,195)  ( DASH, KK= 1,5), ( HEAD3 ( KPX ) ,KPX= 1 , 1 1 ) 

MAPS 

492 

C 

MAPS 

493 

LNT=LNT+4 

MAPS 

494 

GO  TO  159 

MAPS 

495 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

496 

149 

IF  (AN0(GEN(1,LINE), IN).EQ*O.O.OR.NOHE,EQ.l)  GO  TO  150 

MAPS 

497 

C 

MAPS 

498 

WRITE  (6,192) 

MAPS 

499 

C 

MAPS 

500 

LNT=LNT+1 

MAPS 

501 

C 

MAPS 

502 

150 

WRITE  (6,196)  GEN( 1,LINE  ), ( T I TLE ( KX , L INE ) , KX  =  1 , 5 ) , ( SCHD ( KX , L I NE )  ,K 

MAPS 

503 

1X=1,11 ) ,STAT(LINE) ,(C0MENT(KX,LINE),KX=1,1 ) ,RSP(LINE) 

MAPS 

504 

C 

MAPS 

505 

CALL  OPRINT  ( STAT ( LI NE ) ,  IZ AM ) 

MAPS 

506 

C 

MAPS 

507 

LNT=LNT+1 

MAPS 

508 

GO  TO  159 

MAPS 

509 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

510 

151 

IF  ( AND(GEN( 1,LINE), IN) .EQ.O.O.OR.NOHE.EQ.l)  GO  TO  152 

MAPS 

511 

C 

MAPS 

512 

WRITE  (6,192) 

MAPS 

513 

C 

MAPS 

514 

LNT=LNT+1 

MAPS 

515 

C 

MAPS 

516 

152 

WRITE  (6,197)  GENd,  LINE  ),  (  T  I  TLE  (  KX,  L I  NE  )  ,  KX  =  1 , 5  )  ,  (  SCHD  (  KX,  L I  NE )  ,  K 

MAPS 

517 

1X=1,11) ,STAT( LINE) ,( COMENT(KX,LINE) ,KX=1,1 ) ,RSP( LINE) 

MAPS 

518 

C 

MAPS 

519 

CALL  OPRINT  ( STAT ( L I NE ) , IZ AM ) 

MAPS 

520 

c 

MAPS 

521 

LNT-LNT+1 

MAPS 

522 

GO  TO  159 

MAPS 

523 

c 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

524 

153 

IF  (AND(GEN(1,LINE), IN),EO.O.O,OR.NOHE.EQ.l)  GO  TO  154 

MAPS 

525 

C 

MAPS 

526 

WRITE  (6,192) 

MAPS 

527 

C 

MAPS 

528 

LNT=LNT+1 

MAPS 

529 

C 

MAPS 

530 

154 

WRITE  (6,198)  GEN(1,LINE),GEN(2,LINE),(TITLE(KX,LINE),KX=1,5) ,(SCH 

MAPS 

531 

1D(KX,LINE ) ,KX= 1,11), STATIC INE) , ( COMENT ( KX, L I NE ) , KX=1 , 1 ) , RSP ( L I NE ) 

MAPS 

532 

C 

MAPS 

533 

CALL  OPRINT  ( ST AT ( L I NE ) ,  IZ AM  ) 

MAPS 

534 

C 

MAPS 

535 

LNT=LNT+1 

MAPS 

536 

GO  TO  159 

MAPS 

537 

C 

LOGICAL  STATEMENT  FOLLOWS 

MAPS 

538 

155 

IF  (AND(GEN(1,LINE), IN).EQ.O.O.OR.NOHE,EQ.l)  GO  TO  156 

MAPS 

539 

27 


o  n 


C 

WRITE  (6*192) 

C 

LNT=LNT+l 

C 

156  WRITE  (6.199)  GEN ( 1. L INE  ) , GEN ( 2, L I NE ) , ( T ITLE ( KX , LI NE ) . KX  =  1 , 5 ) , ( SCH 
1D(KX,LINE).KX=1,11),STAT(LINE),(C0MENT(KX.LIN£).KX=1,1).RSP(LIN£) 

C 

CALL  OPRINT  ( STAT ( L I N E ) ,  IZ AM ) 

C 

LNT^LNT+l 
GO  TO  159 

C  LOGICAL  STATEMENT  FOLLOWS 

157  IF  (AND(GEN( l.LINE).  IN)  .EQ.O.O.OR.NOHE.EQ. 1)  GO  TO  158 
C 

WRITE  (6,192) 

C 

LNT=LNT+1 

C 

158  WRITE  (6,200)  GEN ( 1, L I NE  )  , GE N ( 2 , L I NE ) , ( T I TLE ( KX, L I NE ) , KX= 1 , 5 ) , ( SCH 
1 D( KX, L INE>,KX= 1,11), STAT (LINE),(C0MENT(KX,LINE),KX=1,1),RSP( LINE) 

C 

CALL  OPRINT  ( STAT ( L I NE  )  ,  IZ AM ) 

C 

LNT=LNT+1 

159  GEN(l,LINE)=TEMXl 
GEN(2,LINE)=TEMX2 

160  LINE=LINE+1 
C 

KSET=3 

CALL  FLAG  ( M A  I NL , MASUM , M ANL , CODE , L I NE , MANOUT , KEND, KGT, KSET ) 
IFIKGT.EQ.l)  GO  TO  134 

IF  (RSP(LINE).EO. TOT. AND. MANOUT. EQ.O)  GO  TO  162 
IF  (LNT.LT.47)  GO  TO  135 

C  LOGICAL  STATEMENT  FOLLOWS 

161  IF  ( AND (GEN ( 1, LINE), MSK( 1,1)) . NE -  AND ( GEN ( 1 , L INE- 1 ) ,MSK(1 , 1) ) .OR.MA 
INOUT.EO.l.OR.KENO.GT.O)  GO  TO  162 

C  LOGICAL  STATEMENT  FOLLOWS 

G0X  =  AND(GEN(1,LINE),MSK(  1,1)  ) 

C 

WRITE  (6,202)  GOX , (HE AD3 (K PX ) , KPX=1 , 11 ) 

C 

162  WRITE  (6,201 )  ( DASH, K PX=  1, 22 ) , ( HE AD2 ( KPX ) , KPX= 1 , 1 1 ) , ( XLGND ( KPX ) , KP 

1X=1,42) 

C 

GO  TO  133 
C 

163  WRITE  (6,201 )  ( DASH, KPX= 1. 2 2 ) , ( HEAD2 { KPX ) , KPX= 1 , 1 1 ) , ( XLGND ( KPX ) , KP 
1X=1,42 ) 

C 

IF  (KEND.LE.O)  GO  TO  164 

KEND=0 

GO  TO  132 

164  KIX=6 
GEX1=0 
MAN  =  1 
MAN0UT=1 

BY-MAN  CARDS  (CARDS  19),  AND  FINAL  PROGRAM  DECK  ASTERISK  CARD(CARD  20) 
READ  (5,203)  MANL.XMANd) 
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C 

IF  (KPJNCH.GT.O)  PUNCH  203,  MANL*XMAN(1) 
C 

IF  (MANL.NE.AST)  GO  TO  165 
IF  (KTI.EO.l)  KSA=1 
C 

IF  (KSA.EQ.O)  WRITE  (6,204)  BLANK 
C 

GO  TO  101 
165  JMAN=1 

GO  TO  132 


166 

167 


168 

169 


170 


171 


172 

173 

174 

175 

176 

177 

178 

179 

180 
181 

182 

183 

184 

185 


FORMAT  (13A6,A2) 

FORMAT  { 1X,21A6, A5/114H0THI$  IS  *MAPS-II*  (MANAGEMENT  ANALYSIS  AND 
1  PLANNING  SYSTEM).  FOR  USER  INFORMATION  SEE  DON  PACKE  OR  GIL  RAFF 
2AELI./1X, A6) 

FORMAT  (3A2,A1,A6,8X, A6,4X,A2,4A2) 

FORMAT  (9Xtl2HC0NTRDL  CARD/1X,30H - /IX 

1  tTHCOLUMNS  ,  5X,  5HINPUT  ,  6X  ,  7H0PT  IONS/ IX,  7H - ,  5X,5Fi  ,6X,7H~ 

2  - /4X,  3H1 , 2,9X  ,  A2  f  6X,  102FIL0CATES  THE  VERTICAL  ASTERISK  CURSOR  C 

30LUMN  (01  THRU  66)  IN  THE  SCHEDULE  FIELD.  BLANK  ELIMINATES  THE  */6 
4X,1H4,9X,A2,6X,103HBLANK  GIVES  TOTAL  LISTING.  0NE(1)GIVES  TOTAL  LI 
5STING  ^  SUMMARY  LISTING.  /6X,1H6,9X 

6,A2,6X,92HBLANK  GIVES  SLASH{/)  AND  NEED  DATE  OVERPRINT  IN  THE  SCHE 
7DULE  FIELD.  ONE  (1)  SUPPRESSES  THEM.) 

FORMAT  (6X,1H7,5X,5X, A1,6X,30HNEE0  DATE  SYMBOL.  BLANK  GIVES  ,A1,66 
IH.  NON  BLANK  GIVES  THE  ACTUAL  CHARACTER  PUNCHED  ON  THE  CONTROL  CAR 
2D/3X,4H  8,5X,1H  , A4 , IH  ) , 6X , 84HT0TAL  LISTING  MASKIMATCHED  WITH  CO 

3LUMNS  51  THRU  54  ON  THE  ID  CARD).  BLANK  ASSUMES  2 • /2X, 5H 10 , 1 1 , 9X ♦ A 
42,6X,B3HID  FLAG  COLUMN  NUMBER  (51-54)  WHICH  IS  TO  BE  MATCHED  WITH 
5MASKS.  BLANK  ASSUMES  51./2X,5H  22,5X,1H  , A4 , IH ) , 6X, 87HSUMMARY  L 

6ISTING  MASK  (MATCHED  WITH  COLUMNS  51  THRU  54  ON  THE  ID  CARD).  BLAN 

FORMAT  (2X,5H32,33,5X,4X,A2,6Xs87HSUPRESSES  THE  PRINTING  OF  HIERAR 
ICHY  NUMBERS  THAT  ARE  EQUAL  TO  OR  LESS  THAN  THIS  NUMBER ./ 5X , 2H35, 9X 
2,A2,6X,103H0NE(1)  GIVES  NEW  PROGRAM  DECK  SORTED  IN  ORDER  WITH  THE 
3DATE  PUNCHED  ON  THE  *  CARDS.  BLANK  GIVES  NO  DECK/5X, 2H37 ♦ 9X , A2 # 6 X# 
489HBLANK  PERMITS  THE  PRINTING  OF  SUMMARY  INFORMATION  BETWEEN  PROGR 
5AMS.  ONE(l)  SUPPRESSES  I T. /5X, 2H41 , 9X, A2 , 6X , 93HBLANK  PERMITS  THE  P 
6RINTING  OF  HIERARCHY  ERROR  MESSAGES  WITHIN  THE  TEXT.  ONE ( 1 )  SUPPRE 
7SSES  IT.) 

FORMAT  (11A6/11A6/11A6) 

FORMAT  (13A6, A2/6A6, A4 , 6 A6, A4/ 13A6, A2 ) 

FORMAT  (12H0ERR0R  CARDS) 

FORMAT  ( A  1 , A1 , A5, A4, Al,5A6,AlfA6,AlfA4,Al,A3,Al, 3A6 , A3 ) 

FORMAT  (39H  THIS  CARD  IN  ID  DECK  IS  NOT  ID  FORMAT (, A1 , A1 • A5 # A4 , A 1 , 
15A6, A1 , A6, A1 , A4, A1,A3,A1,3A6,A3, IH) ) 

FORMAT  (54H0M0RE  THAN  1000  VALID  ID  CARDS — PROGRAM  IGNORES  EXCESS) 
(Al) 

(IH  ) 

FORMAT  ( 11A6,A2, A1,A5, A4,A2) 

FORMAT  (39H  NO  ID  CARD  FOR  THIS  SCHEDULE  CARD 
1,A2.1H) ) 

FORMAT  ( A5, A4, A5,A3, A5,9A6, A4) 

FORMAT  (39H  NO  ID  CARO  FOR  THIS  STATUS  CARD 
19A6,A4, IH) ) 

FORMAT  (36HONO  ERROR  CARDS  IN  FOLLOWING  PROGRAM/IH  Al) 

FORMAT  (24HLRESP0NSIBLE  PERSON  L  I  ST/ ( 1 5 ( IX . A6 ) ) ) 


FORMAT 

FORMAT 


(11A6,A2,A1,A5,A4 


(,A5,A4,A5,A3,A5, 
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MAPS 
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650 
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186 

FORf^AT 

(1HL,I4,40H  VALID  ID  CARDS  READ— PROGRAM  MAX  =1000  ) 

MAPS 

660 

187 

FORMAT 

(lH0,I5»i7H  HIERARCHY  ERRORS) 

MAPS 

661 

188 

FORMAT 

(lHl/lXtl3A6,A2) 

MAPS 

662 

189 

FORMAT 

(31H0RESP0NSIBILITY  BY  MAN  FOR  ***  ,A6f4H  **• , 6X , 8HMASK  = 

MAPS 

663 

1,A4.1H) ) 

MAPS 

664 

190 

FORMAT 

( 1 IHOHI ERARCHY  , 3 8X , 1 1 A6 , lOX , 7H. P ERS0N/8H  NUMBER 1 13 X , 1 IHDE 

MAPS 

665 

ISCRIPTIONf 17X, 11A6,17H  COMMENT  .RSPRLE/IH  ,21A6,A5) 

MAPS 

666 

191 

FORMAT 

(2(49X,11A6/) ,6X,6A6f 7X,11A6/9X,5A6,10X,11A6/6X,6A6,7X,11A6 

MAPS 

667 

1  ) 

MAPS 

668 

192 

FORMAT 

( lXt8X, 17H*HI ERARCHY  ERROR»f/) 

MAPS 

669 

193 

FORMAT 

(49X, 11A6/49X, 11A6) 

MAPS 

670 

194 

FORMAT 

(1X,A2,2X,5A6,14X,11A6,A4,A6,1X,A6) 

MAPS 

671 

195 

FORMAT 

(5X,5A6,14X,11A6) 

MAPS 

672 

196 

FORMAT 

( lXtA3,3X,5A6, 1 2X , 1 1 A6, A4, A6, IX , A6 ) 

MAPS 

673 

197 

FORMAT 

(1X,A5,4X,5A6,9X,UA6,A4,A6,1X,A6) 

MAPS 

674 

198 

FORMAT 

(1X,A5,A1,6X,5A6,6X,11A6,A4,A6,1X,A6) 

MAPS 

675 

199 

FORMAT 

{ 1X,A5,A3,7X,5A6, 3X,11A6,A4,A6,1X,A6) 

MAPS 

676 

200 

FORMAT 

tlX,A5,A4,9X,5A6,llA6,A4,A6,lX,A6) 

MAPS 

677 

201 

FORMAT 

( 1X,21A6,A5/49X, 11A6/10H0LEGEN0.  , 13A6 , A2 , 6A6 , A4/10H  . 

MAPS 

678 

1..  ,6A6, A4, 13A6,A2) 

MAPS 

679 

202 

FORMAT 

ITH  (ITEM  ,A2,21H  CONTINUED  NEXT  PAGE  ) ,  19X , 1 1 A6 ) 

MAPS 

680 

203 

FORMAT 

(A6,lXtA6) 

MAPS 

681 

204 

FORMAT 

(1H1,A1) 

MAPS 

682 

END 

MAPS 
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$IBMAP  DATE 
ENTRY 

DATE  SAVE 
DLO 
DST* 
RETURN 
END 


DECK 

DATE 

4 

. JDATE+1 

3t4 

DATE 


DATE  1 

DATE  2 

DATE  3 

DATE  4 

DATE  5 

DATE  6 

DATE  7 
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$IBFTC  flag  deck 

SUBROUTINE  FLAG  (MAINLtMASUMtHANLtCDOEtLINE.MANOUTtKENDtKGT.KSET) 

C 

C  THE  FLAG  SUBROUTINE  IS  USED  FOR  THE  SELECTIVE  PRINTOUT  OPTIONS  OF 
C  MAPS.  THE  SUBROUTINE  IS  ORGANIZED  INTO  THREE  MAIN  SECTIONS. 

C  THE  FIRST  ASSIGNS  THE  TOTAL  AND  SUMMARY  LISTING  MASKS.  AND  THE  ID  CARD 
C  FLAG  COLUMN.  THE  SECOND  SECTION  ASSIGNS  THE  BY-MAN  MASK. 

C  THE  THIRD  SELECTS  ITEMS  TO  BE  PRINTED  ACCORDING  TO  THE  LISTING  BEING 
C  PROCESSED. 

C 

DATA  SL ,TMS/6H0t 0000 ,0000000000077/ 

DATA  BLANK.ONE.TWO.FOUR, (F( J  ),J  =  1,4) ,ZER0/6H0000  ,6H000001 ,6HOOOO 

102 , 6H000004,6H000051 , 6H0 00052 , 6H00005 3 , 6H000054 , 6H 000000/ 

DIMENSION  CODE(l),  F{4) 

REAL  MAINL.MASUM.MANL 
C 

IF  (KSET.EQ.3)  GO  TO  304 

IF  (KSET.E0.2)  GO  TO  303 

C  LOGICAL  STATEMENT  FOLLOWS 

TMSK1=ARS(30,MAINL) 

C  LOGICAL  STATEMENT  FOLLOWS 

TMSK2=ARS(30,MASUM) 

C  LOGICAL  STATEMENT  FOLLOWS 

FLGCL= ARS (24,ALS(12,MAINL)) 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  ( TMSKl . EQ. ARS ( 6,BL ANK ) )  TMSK1=TW0 
C  LOGICAL  STATEMENT  FOLLOWS 

IF  (  TMSK2 . EQ. ARS (6,BL ANK ) )  TMSK2=F0UR 
IF  ( FLGCL . EQ. BLANK )  FLGCL=F11) 

DO  301  K=l,4 

301  IF  (FLGCL. EG. F(K ) )  GO  TO  302 
K=1 

C  LOGICAL  STATEMENT  FOLLOWS 

302  MAI NL  =  DRt  SL,OR( ALSt30 .TMSKl ) , ALSl 12,F(K) ) ) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

MASUM=DR( SL.OR ( ALS(30,TMSK2) ,ALS(12,F(K)))) 

L=36-6*K 

C  LOGICAL  STATEMENT  FOLLOWS 

TMSK1=ALS(L, TMSKl) 

C  LOGICAL  STATEMENT  FOLLOWS 

TMSK2=ALS(L,TMSK2) 

C  LOGICAL  STATEMENT  FOLLOWS 

BNK^ALS(L,ARS(6,BLANK) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

TMX=ALS(L,TMS) 

RETURN 

C  LOGICAL  STATEMENT  FOLLOWS 

303  TMSK3=ARS(30,MANL) 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  ( TMSK3.EQ. ARS (6.BLANK ) )  TMSK3=0NE 
C  LOGICAL  STATEMENT  FOLLOWS 

MANL  =  QR(  SL.OR (ALSt  30, TMSK3) . ALS(12,F(K)))) 

C  LOGICAL  STATEMENT  FOLLOWS 

TMSK3=ALS(L,TMSK3) 

RETURN 

C  LOGICAL  STATEMENT  FOLLOWS 

304  TEMP=AND(CODE(LINE),TMX) 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  { KEND. GT . 0 . AND. ( TEMP. EO.BNK.OR. AND( TEMP , TMSK2 ). EO. ZERO) )  GO  TO 


FLAG 

1 

FLAG 

2 

FLAG 

3 

FLAG 

4 

FLAG 

5 

FLAG 

6 

FLAG 

7 

FLAG 

8 

FLAG 

9 

FLAG 

10 

FLAG 

11 

FLAG 

12 

FLAG 

13 

FLAG 

14 

FLAG 

15 

FLAG 

16 

FLAG 

17 

FLAG 

18 

FLAG 

19 

FLAG 

20 

FLAG 

21 

FLAG 

22 

FLAG 

23 

FLAG 

24 

FLAG 

25 

FLAG 

26 

FLAG 

27 

FLAG 

28 

FLAG 

29 

FLAG 

30 

FLAG 

31 

FLAG 

32 

FLAG 

33 

FLAG 

34 

FLAG 

35 

FLAG 

36 

FLAG 

37 

flag 

38 

FLAG 

39 

FLAG 

40 

FLAG 

41 

FLAG 

42 

FLAG 

43 

FLAG 

44 

FLAG 

45 

FLAG 

46 

FLAG 

47 

FLAG 

48 

FLAG 

49 

FLAG 

50 

FLAG 

51 

FLAG 

52 

FLAG 

53 

FLAG 

54 

FLAG 

55 

FLAG 

56 

FLAG 

57 

FLAG 

58 

FLAG 

59 
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1306 

FLAG 

60 

IF  (KEND.GT.O)  GO  TO  305 

FLAG 

61 

c 

LOGICAL  STATEMENT  FOLLOWS 

FLAG 

62 

IF  (  MA  NOU  T.  E  Q.  0.  AND.  T  EMP.  NE.  BNK*  AND*  AND  {  TEMP,  TMSKD.EQ.  ZERO) 

GO 

TO 

FLAG 

63 

1  306 

FLAG 

64 

c 

LOGICAL  STATEMENT  FOLLOWS 

FLAG 

65 

IF  (MANOUT.EQ. 1. AND. TEMP. NE.BNK. AND. AND ( TEMP, TMSK3I .EQ. ZERO) 

GO 

TO 

FLAG 

66 

1  306 

FLAG 

67 

305 

KGT  =  2 

FLAG 

68 

RETURN 

FLAG 

69 

306 

KGT  =  1 

FLAG 

70 

RETURN 

FLAG 

71 

END 

FLAG 

72 
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$IBFTC  SORTER  DECK 

SORTE 

1 

SUBKOJTINE  SORTER  (KXM) 

SORTE 

2 

C 

SORTE 

3 

C 

SUBROUTINE  SORTER  SORTS  IN 

ORDER  BY  RIPPLING  THROUGH  THE  DECK  IN 

SORTE 

4 

C 

BOTH  DIRECTIONS  AND  EXCHANGING  ADJACENT  CARDS  IF  THEY 

ARE  OUT 

SORTE 

5 

C 

OF  ORDER 

SORTE 

6 

C 

SORTE 

7 

DATA  ASKl, ASK2,ZERO/6HOOCOO  ,6H0000  ,6HOOOOOO/ 

SORTE 

8 

COMMON  N,GEN,SKED,L1»K1, 

TITLE,PERS,X,WKS,STAT,  IXT 

SORTE 

9 

DIMENSION  GEN(2,  1000),  T ITLE I  5, 1000 ) ,  SKED ( 1 1 ,  1000 ) 

,  WKSIIOOO),  ST 

SORTE 

10 

lATd.lOOO),  PERS(IOOO), 

X(IOOO),  IXT(lOOl) 

SORTE 

11 

DIMENSION  TEMP(6),  I T ST ( 11 , 1 000 ) 

SORTE 

12 

EQUIVALENCE  (ITST*SKED) 

SORTE 

13 

C 

SORTE 

14 

C 

SORTE 

15 

DO  403  J=1tN 

SORTE 

16 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

17 

TEMP(l)=ARS(24, GENII, ) 

SORTE 

18 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

19 

TEMP(4)  =  ARS(30,ALS(12,GEN(  1,  J)  )  ) 

SORTE 

20 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

21 

TEMP(2>=ARS(24,ALS{18,GEN(  1,  J) )  ) 

SORTE 

22 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

23 

TEMP(5 )=ARS( 30,GEN(2, J ) ) 

SORTE 

24 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

25 

TEMP(3)  =  ARS(24,ALS{6,GEN(2,J  )  )  ) 

SORTE 

26 

c 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

27 

TEMP(6)=ARS( 30, ALS(18,GEN(  2,  Jl  )  ) 

SORTE 

28 

DO  401  K=l,3 

SORTE 

29 

IF  (TEMP(K).EQ.ASK2)  TEMP{K)=ZERO 

SORTE 

30 

401 

CONTINUE 

SORTE 

31 

DO  402  K=4,6 

SORTE 

32 

IF  (TEMP(K).EO.ASKl)  TEMP(K)=ZERO 

SORTE 

33 

402 

CONTINUE 

SORTE 

34 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

35 

SKEDd,  J)=0R(ALS(12,0R(  ALS(6,TEMP(  1)  ) ,  TEMP  ( 4  )  )  ) ,  TEMP  (  2  )  ) 

SORTE 

36 

C 

LOGICAL  STATEMENT 

FOLLOWS 

SORTE 

37 

403 

SKE0(2.J)=0R(ALS(6,0R(ALS(  12, TEMPI  5)  ),TEMP(3) ) ) ,TEMP(6) ) 

SORTE 

38 

KXX=1 

SORTE 

39 

N1=N“1 

SORTE 

40 

404 

DO  411  JY=1,2 

SORTE 

41 

KOUNT=D 

SORTE 

42 

DO  410  JX=1,N1 

SORTE 

43 

J=JX 

SORTE 

44 

IF  (JY.EQ.2)  J=N~JX 

SORTE 

45 

IF  I ITSTI 1. J  +  1 )-ITST 1 1, J  ) )  406,405,410 

SORTE 

46 

405 

IF  (ITST(2,J+1)-ITSTI2,J))  406,410,410 

SORTE 

47 

406 

TEMP1=GEN( 1, J+1) 

SORTE 

48 

TEMP2=GEN{2, J+1) 

SORTE 

49 

DO  407  Jl=l,5 

SORTE 

50 

407 

TEMPIJI )  =  TITLE( JI, J+1  ) 

SORTE 

51 

TEMP3=PERS( J+1) 

SORTE 

52 

TEMP4=X( J+1) 

SORTE 

53 

TEMP5=SKED( 1, J+1) 

SORTE 

54 

TFMP6=SKED{2, J  +  1  ) 

SORTE 

55 

TEMP7=STAT(1,J+1) 

SORTE 

56 

TEMP8=WKS ( J+1 ) 

SORTE 

57 

ITMP=IXT( J  +  1  ) 

SORTE 

58 

GENII, J+1)=GEN(1,J) 

SORTE 

59 
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408 


409 


410 


411 


GEN(2t J+1)=GEN(2*J) 

DO  408  Jl=lf  5 

TITLE! J1,J  +  1)  =  TITLE(  Jit J ) 

PERS(J+1)=PEKS( J) 

X( J  +  l)  =  X(  J) 

SKEOd  t  J+1)  =  SKED{  ItJ  ) 
SKE0(2t J  +  l)  =  SKFD(2tJ  ) 

STAT ( 1 , J+1 )  =  STAT ( 1 1 J  ) 

WKS! J+1)=WKS( J) 

IXT( J+1)=IXT! J) 

GEN( 1, J)=TEMP1 
GEN(2, J)=TEMP2 
DO  409  Jl=l,5 
TITLE! JltJ  )  =  TEMP(J1) 

PERS! J )=TEMP3 
X! J)=TEMP4 
SKE0!1, J)=TEMP5 
SKED(2, J)=TEMP6 
STAT! 1, J)=TEMP7 
WKS! J)=TEMP8 
IXT! J)=ITMP 
K0UNT=1 
CONTINUE 

IE  !KOUNT,EQ.O)  RETURN 
KXX=KXX+1 

IF  !KXX.GE.N)  RETURN 

CONTINUE 

GO  TO  404 

END 


SORTE  60 
SORTE  61 
SORTE  62 
SORTE  63 
SORTE  64 
SORTE  65 
SORTE  66 
SORTE  67 
SORTE  68 
SORTE  69 
SORTE  70 
SORTE  71 
SORTE  72 
SORTE  73 
SORTE  74 
SORTE  75 
SORTE  76 
SORTE  77 
SORTE  78 
SORTE  79 
SORTE  80 
SORTE  81 
SORTE  82 
SORTE  83 
SORTE  84 
SORTE  85 
SORTE  86 
SORTE  87 
SORTE  88 
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$IBFTC  CHECK  DECK 

CHECK 

1 

SUBROUTINE  CHECK  (KZX) 

CHECK 

2 

C 

CHECK 

3 

C 

SUBROUTINE  CHECK  CHECKS  THE  SORTED  ID  DECK  FOR  HIERARCHY  ERRORS 

CHECK 

4 

C 

CHECK 

5 

DATA  IN/0000000000001/ 

CHECK 

6 

DATA  L KBl/ 0000000006060/ ,LKB 2/0000000000060/ 

CHECK 

7 

DIMENSION  GEN(2,1000),  SCH ( 1 1, 1000 ) ,  TAG(iOOl) 

CHECK 

8 

EQUIVALENCE  ( SCH ( 1,1 ) ,TAG( l))t  (XIN,IN) 

CHECK 

9 

COMMON  NUMBER,GEN,SCH,LINE,K0LUMN 

CHECK 

10 

INTEGER  TAG 

CHECK 

11 

C 

CHECK 

12 

C 

CHECK 

13 

KZX=0 

CHECK 

14 

DO  522  JCTR=1,5 

CHECK 

15 

DO  509  KCTR=1, NUMBER 

CHECK 

16 

GO  TO  (501, 501, 501,502, 502). JCTR 

CHECK 

17 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

18 

501 

LT=IARS(6,GEN( l.KCTR) )  . 

CHECK 

19 

GO  TO  (503,504,505,505,505), JCTR 

CHECK 

20 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

21 

502 

LT=IARS(12,GEN(2,KCTR) ) 

CHECK 

22 

GO  TO  (506, 506, 506, 506, 507), JCTR 

CHECK 

23 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

24 

503 

TAG{KCTR)=IARS( 18,LT ) 

CHECK 

25 

GO  TO  508 

CHECK 

26 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

27 

504 

TAG(KCTR)=IARS(30, IALS{30, IARS( 12,LT) ) ) 

CHECK 

28 

GO  TO  508 

CHECK 

29 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

30 

505 

TAG(KCTR)=IARS(24, IALS(24,LT) ) 

CHECK 

31 

GO  TO  508 

CHECK 

32 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

33 

506 

TAG(KCTR)=IARS( 18,LT ) 

CHECK 

34 

GO  TO  508 

CHECK 

35 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

36 

507 

TAG(KCTR)=IARS(24, IALS(24, IARS(6,LT) ) ) 

CHECK 

37 

508 

CONTINUE 

CHECK 

38 

509 

CONTINUE 

CHECK 

39 

DO  510  LCTR=1, NUMBER 

CHECK 

40 

IF  (TAG(LCTR).EQ.LKB1.0R*TAG(LCTR).EQ.LKB2)  GO  TO  510 

CHECK 

41 

GO  TO  511 

CHECK 

42 

510 

CONTINUE 

CHECK 

43 

511 

CONTINUE 

CHECK 

44 

512 

IW  =  0 

CHECK 

45 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

46 

L=IARS(6,GEN(1,LCTR) ) 

CHECK 

47 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

48 

M=IARS(12,GEN(2,LCTR) ) 

CHECK 

49 

GO  TO  (513,514,515,516,517), JCTR 

CHECK 

50 

c 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

51 

513 

JC=IARS(30, IALS(30,I ARS( 12,L ) ) ) 

CHECK 

52 

IF  ( JC.EQ.LKBi.0R.JC.EQ.LKB2)  GO  TO  514 

CHECK 

53 

IW=1 

CHECK 

54 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

55 

514 

JC=IARS(24,IALS(24,L) ) 

CHECK 

56 

IF  { JC.EQ.LKB1.0R.JC.EQ.LKB2)  GO  TO  515 

CHECK 

57 

IW=1 

CHECK 

58 

C 

LOGICAL  STATEMENT  FOLLOWS 

CHECK 

59 

35 


o  m 


515  JC=IARS{18,M) 

IF  ( JC.EQ.LKBl.OR. JC.eQ.LKB2)  GO  TO  516 
IW=1 

C  LOGICAL  STATEMENT  FOLLOWS 

516  JC=IARS(24,IALS(24,IARS(6,M)  )) 

IF  ( JC.EQ.LKBl.OR. JC.EQ.LKB2)  GO  TO  517 
IW=1 

LOGICAL  STATEMENT  FOLLOWS 
17  JC=IARS(30,  lALSOO.M)  I 

IF  ( JC.EQ.LKBl.OR. JC.EQ.LKB2)  GO  TO  518 
IW=1 

518  CONTINUE 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  (IW.EQ.l)  GENII, LCTR)=OR(GEN(l,LCTR), IN) 

IF  (LCTR. EO. NUMBER )  GO  TO  522 

J=LCTR+1 

519  IF  (TAG(LCTR)-TAG( J) )  521,520,521 

520  IF  (J.FO. NUMBER)  GO  TO  522 
J  =  J  +  1 

GO  TO  519 

521  LCTR=J 

GO  TO  512 

522  CONTINUE 

DO  523  JX=1, NUMBER 

C  LOGICAL  STATEMENT  FOLLOWS 

523  IF  I  ANDIGENI  i,  JX  )  ,  IN  )  .  EQ.X  IN  )  KZX  =  K2X<-1 
RETURN 

END 


CHECK 

60 

CHECK 

61 

CHECK 

(>Z 

CHECK 

63 

CHECK 

64 

CHECK 

65 

CHECK 

66 

CHECK 

67 

CHECK 

68 

CHECK 

69 

CHECK 

70 

CHECK 

71 

CHECK 

72 

CHECK 

73 

CHECK 

74 

CHECK 

75 

CHECK 

76 

CHECK 

77 

CHECK 

78 

CHECK 

79 

CHECK 

80 

CHECK 

81 

CHECK 

82 

CHECK 

83 

CHECK 

84 

CHECK 

85 

CHECK 

86 

CHECK 

87 
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SIBFTC  RUNOUT  DECK 

SUBROUTINE  RUNOUT 

THE  RUNOUT  SUBROUTINE  RUNCHES  A  NEW  DATA  DECK  INCLUDING  ID. SCHEDULE, 
AND  STATUS  CARDS 

DATA  BLK/6H  0000/ 

DATA  AST, RER/6H»00000,6H. 00000/ 

DATA  BLANK/IH  / 

DATA  TAST/6H  *00/ 

DATA  TXQ/0000000000002/ 

COMMON  N, GEN, SKED, LI, Kl, TITLE, PERS,X,WKS,STAT 
DIMENSION  TEMR(66),  DA(2) 

DIMENSION  GEN(2,I000),  T  ITLE ( 5,  1000 )  ,  SKED I  1 1 , 1000 ) ,  WKS(IOOO),  ST 
lATIl, 10001,  RERSIIOOO),  XIIOOO) 


SUBROUTINE  DATE  IS  USED  TO  EXTRACT  THE  PROGRAM  RUN  DATE  FROM 
THE  COMPUTER  CLOCK.  AT  LEWIS  IT  IS  WRITTEN  IN  IBM  MAP  LANGUAGE. 

IT  COMPOSES  AN  EIGHT  CHARACTER  DATE  (E.G.  11/24/71  )  INTO  TWO 
HOLLERITH  WORDS. 

CALL  DATE  (DA) 

DO  601  J=1,N 
C 

601  PUNCH  610,  GEN(1,J),GEN(2,J),(TITLE(K,J),K=1,5).PERS{J),X(J) 

C 

PUNCH  609,  DA 
C 

DO  606  J=1,N 

C  LOGICAL  STATEMENT  FOLLOWS 

IF  { AND(GEN( 1. J) ,TXQ ) .NE .TXO )  GO  TO  606 

DO  602  M=l,ll 

jM=6*M-5 

C  LOGICAL  STATEMENT  FOLLOWS 

TEMP(JM)=ALS(30,ARS(30,SKED(M,J))) 

C  LOGICAL  STATEMENT  FOLLOWS 

TEMP(JM+1)=ALS(30,ARS(24.SKED(M,J) ) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

TEMP(JM+2)=ALS(30,ARS(18,SKED(M,J))) 

C  LOGICAL  STATEMENT  FOLLOWS 

TEMPI JM+3)= ALS( 30. ARS( 12,SKEDIM,J))) 

C  LOGICAL  STATEMENT  FOLLOWS 

TEMP(JM+4)=ALS(30,ARS(6,SKED{M,J) ) ) 

C  LOGICAL  STATEMENT  FOLLOWS 

602  TEMP(JM+5)=ALS(30,SKED(M,J) ) 

DO  603  M=l,66 

IF  (TEMP(M) .EQ.AST)  TEMP ( M )=BLANK 

603  CONTINUE 

C  LOGICAL  STATEMENT  FOLLOWS 

TM=ALS(24,X( J) ) 

DO  604  M=l,66 

IF  ( tempi M ) .NE.BLANK . AND. TEMPI M ) .NE .AST. AND. TEMP ( M ) .NE.PER)  GO  TO 
1605 

604  CONTINUE 

IF  (TM.NE.BLK)  GO  TO  605 

GO  TO  606 
C 

605  PUNCH  611,  (TEMP(M),M=1,66),TM,GENI1,J),GEN(2,J) 

C 


PUNOU 

1 

PUNOU 

2 

PUNOU 

3 

PUNOU 

4 

PUNOU 

5 

PUNOU 

6 

PUNOU 

7 

PUNOU 

8 

PUNOU 

9 

PUNOU 

10 

PUNOU 

11 

PUNOU 

12 

PUNOU 

13 

PUNOU 

14 

PUNOU 

15 

PUNOU 

16 

PUNOU 

17 

PUNOU 

18 

PUNOU 

19 

PUNOU 

20 

PUNOU 

21 

PUNOU 

22 

PUNOU 

23 

PUNOU 

24 

PUNOU 

25 

PUNOU 

26 

PUNOU 

27 

PUNOU 

28 

PUNOU 

29 

PUNOU 

30 

PUNOU 

31 

PUNOU 

32 

PUNOU 

33 

PUNOU 

34 

PUNOU 

35 

PUNOU 

36 

PUNOU 

37 

PUNOU 

38 

PUNOU 

39 

PUNOU 

40 

PUNOU 

41 

PUNOU 

42 

PUNOU 

43 

PUNOU 

44 

PUNOU 

45 

PUNOU 

46 

PUNOU 

47 

PUNOU 

48 

PUNOU 

49 

PUNOU 

50 

PUNOU 

51 

PUNOU 

52 

PUNOU 

53 

PUNOU 

54 

PUNOU 

55 

PUNOU 

56 

PUNOU 

57 

PUNOU 

58 

PUNOU 

59 
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606 

CONTINUE 

PUNOU 

60 

C 

PUNOU 

61 

PUNCH  608 

PUNOU 

62 

C 

PUNOU 

63 

PUNCH  609,  DA 

PUNOU 

64 

c 

PUNOU 

65 

DO  607  J=1,N 

PUNOU 

66 

IF  (  IWKS( J)  .EQ.BLANK.OR. WKS.EO.TAST) .AND.STAT( 1, J) •EQ.BLANK)  GO  TO 

PUNOU 

67 

1  607 

PUNOU 

68 

c 

PUNOU 

69 

PUNCH  612,  GEN(1,J),GEN(2,J),WKS{J),STAT(1,J) 

PUNOU 

70 

c 

PUNOU 

71 

607 

CONTINUE 

PUNOU 

72 

C 

PUNOU 

73 

PUNCH  608 

PUNOU 

74 

c 

PUNOU 

75 

PUNCH  609,  DA 

PUNOU 

76 

c 

PUNOU 

77 

RETURN 

PUNOU 

78 

c 

PUNOU 

79 

c 

PUNOU 

80 

c 

PUNOU 

81 

608 

FORMAT  (IH/) 

PUNOU 

82 

609 

FORMAT  ( IH*, 5X, A6, A2, 11H=PUNCH  DATE) 

PUNOU 

83 

610 

FORMAT  ( IHS,  IX, A5, A4, IX, 5A6,  IX, A6, IX, A4) 

PUNOU 

84 

611 

FORMAT  (66A1,A2,1X,A5,A4) 

PUNOU 

85 

612 

FORMAT  ( A5,A4,5X,A3, 5X,A6) 

PUNOU 

86 

END 

PUNOU 

87 
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SIBFTC 

PICK  DECK 

PICK 

1 

SUBROUTINE  PICK  (GEN, CODE, N) 

PICK 

2 

C 

PICK 

3 

C  SUBROUTINE  PICK  SELECTS  ALL  ID  CARDS  WITH  A  NON  BLANK  MASK  IN 

PICK 

4 

C  COLUMNS  51-54 

PICK 

5 

c 

PICK 

6 

DATA  BNX/0777777770000/ 

PICK 

7 

DATA  BLANK, BNK/IH  ,6H  00/ 

PICK 

8 

DIMENSION  GEN(l),  COOE(l),  X(3,8) 

PICK 

9 

c 

PICK 

10 

WRITE  (6,704) 

PICK 

11 

c 

PICK 

12 

DO  701  MX=1,3 

PICK 

13 

DO  701  MY=1,8 

PICK 

14 

701 

X(MX,MY)=BLANK 

PICK 

15 

MX=1 

PICK 

16 

DO  703  J=1,N 

PICK 

17 

C 

LOGICAL  STATEMENT  FOLLOWS 

PICK 

18 

IF  ( ANDICODE ( J ) ,8NX) .EO.BNK)  GO  TO  703 

PICK 

19 

X( 1,MX)=GEN(2*J-1) 

PICK 

20 

X(2,MX)=GEN(2*J) 

PICK 

21 

X(3,MX)=C0DE(J) 

PICK 

22 

MX=MX+1 

PICK 

23 

IF  (MX.LT.9)  GO  TO  703 

PICK 

24 

C 

PICK 

25 

WRITE  (6,705)  ( ( X ( J 1 , J 2 ) , J 1= 1 , 3 ) , J 2= 1 . 8 ) 

PICK 

26 

c 

PICK 

27 

DO  702  MX=1,3 

PICK 

28 

DO  702  MY=1,8 

PICK 

29 

702 

X(MX,MY)=BLANK 

PICK 

30 

MX=1 

PICK 

31 

703 

CONTINUE 

PICK 

32 

c 

PICK 

33 

WRITE  (6,705)  ( ( X ( J1 , J2 ) , J 1= 1 , 3 ) , J2= 1 , 8 ) 

PICK 

34 

c 

PICK 

35 

RETURN 

PICK 

36 

c 

PICK 

37 

c 

PICK 

38 

c 

PICK 

39 

704 

FORMAT  (52HLTHE  FOLLOWING  10  CARDS  HAVE  A  FLAG  IN  COLUMNS  51-54) 

PICK 

40 

705 

FORMAT  ( 3X,8 ( 1H( , A5, A4, IH* ,A4, IH) ) ) 

PICK 

41 

END 

PICK 

42 

39 
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tlBFTC  OPRINT  DECK 

SUBROUTIl^E  OPRINT  (  S  T  ATUS,  NEX I  T  ) 

SUBROUTINE  OPRINT  FORMS  THE  SLASH  AND  NEED-DATE  LINE  FOR  OVERPRINTING 
STATUS  ON  THE  SCHEDULE.  THE  SLASH  WILL  NOT  OVERPRINT  THE  SYMBOLS 
OOTI. ) .ASTERISK!*) fMINUS(-) .AND  ZERO(O) 

DATA  I  ZB/0000000000060/. I A  ST/0000000000054/ , I  PD/0000000000033/ 

DATA  IZQ/6H0000  / 

DATA  CAS/0000000007777/ 

DATA  I M/ 0000000000040/, I  A/ 0000000000020/ 

DATA  IBLK/0600000000000/,ISS/6H/  / 

DATA  ( DN( J ) , J=l, 10 1/0000000000000. 000000000000 1.0000000000002, 0000 
1000000003,0000000000004,0000000000005,0000000000006,0000000000007, 
20000000000010,0000000000011/ 

DATA  I DASH/6H00000-/ 

INTEGER  ON 
INTEGER  SCH 

DIMENSION  ONdl),  NEX  IT  (2) 

DIMENSION  DUMMY(6000),  CODEIIOOO) 

DIMENSION  SCHIll.lOOO),  CENI2,1000),  JS(6).  IP(66),  IZ(66) 

COMMON  NUMBER,GEN, SCH, LINEjKOLUMN 
COMMON  DUMMY, CODE 
EQUIVALENCE  tXCD,KXCD) 

C 

CN( 11)=0N( 1) 

IF  (NEXIT! 1) .GT.O)  RETURN 
DO  801  NCT=1,66 

801  IZ(NCT)=I8LK 
KOUNT=0 

C  LOGICAL  STATEMENT  FOLLOWS 

IS=IARS(30, STATUS) 

C  LOGICAL  STATEMENT  FOLLOWS 

IT= I ARS ! 24, I ALS! 6, STATUS  )  ) 

C  LOGICAL  STATEMENT  FOLLOWS 

IU=IARS(6,IT) 

C  LOGICAL  STATEMENT  FOLLOWS 

IW= I ARS ( 30, I ALS! 30, IT  )  ) 

IF  ! IS. EQ. IZB. AND. IW. EQ.  IZB. AND. lU.EQ. I  ZB )  GO  TO  805 
DO  802  JCT=1,11 
I V  =  ON! JCT  )-IU 
IF  !  IV.EO.O)  GO  TO  803 

802  CONTINUE 
GO  TO  819 

803  JCT=JCT-1 

DO  804  KCT=1,11 

IV=ON!KCT)-IW 

IF  !  IV.EO.O)  GO  TO  805 

804  CONTINUE 
GO  TO  819 

805  KCT=KCT-1 

I SL=KCT+10*JCT 
MCT  =  0 

DO  807  LCT=1,11 
IW=SCH!LCT,LINE) 

C  LOGICAL  STATEMENT  FOLLOWS 

JS ! 1 )= I ARS ! 30, IW ) 

C  LOGICAL  STATEMENT  FOLLOWS 

JS!2)  =  I ARSI30, IALSI6,  IW)  ) 


OPRIN 

I 

OPRIN 

2 

OPRIN 

3 

OPRIN 

4 

OPRIN 

5 

OPRIN 

6 

OPRIN 

7 

OPRIN 

8 

OPRIN 

9 

OPRIN 

10 

OPRIN 

11 

OPRIN 

12 

OPRIN 

13 

OPRIN 

14 

OPRIN 

15 

OPRIN 

16 

OPRIN 

17 

OPRIN 

18 

OPRIN 

19 

OPRIN 

20 

OPRIN 

21 

OPRIN 

22 

OPRIN 

23 

OPRIN 

24 

OPRIN 

25 

OPRIN 

26 

OPRIN 

27 

OPRIN 

28 

OPRIN 

29 

OPRIN 

30 

OPRIN 

31 

OPRIN 

32 

OPRIN 

33 

OPRIN 

34 

OPRIN 

35 

OPRIN 

36 

OPRIN 

37 

OPRIN 

38 

OPRIN 

39 

OPRIN 

40 

OPRIN 

41 

OPRIN 

42 

OPRIN 

43 

OPRIN 

44 

OPRIN 

45 

OPRIN 

46 

OPRIN 

47 

OPRIN 

48 

OPRIN 

49 

OPRIN 

50 

OPRIN 

51 

OPRIN 

52 

OPRIN 

53 

OPRIN 

54 

OPRIN 

55 

OPRIN 

56 

OPRIN 

57 

OPRIN 

58 

OPRIN 

59 

40 


c 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

60 

JS< 3)=IARS130, IALS(12,IW)) 

OPRIN 

61 

c 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

62 

JS(4)=IARS(30,IALS(18,IW)) 

OPRIN 

63 

c 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

64 

JS{ 5)=I ARS(30, IALS(24, IW) ) 

OPRIN 

65 

c 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

66 

JS(6)=I ARS(30, IALS(30, IW)) 

OPRIN 

67 

DO  306  NCT=1,6 

OPRIN 

68 

IF  ( JS(NCT).EQ. IZB.OR.JS(NCT).EQ.IAST.OR.JS(NCT).EQ. ID ASH)  JS(NCT) 

OPRIN 

69 

1=0 

OPRIN 

70 

806 

CONTINUE 

OPRIN 

71 

IP(MCT+1)=JS(1) 

OPRIN 

72 

IP(MCTf2)=JS(2) 

OPRIN 

73 

IP(MCT+3)=JS(3) 

OPRIN 

74 

IP(MCT+4)=JS(4) 

OPRIN 

75 

IP( MCT+5)=JS(5) 

OPRIN 

76 

IP(iVCTf6)=JS(6) 

OPRIN 

77 

MCT=MCT+6 

OPRIN 

78 

807 

CONTINUE 

OPRIN 

79 

IF  (  IS.EO.  IZB)  GO  TO  814 

OPRIN 

80 

IF  (IS-IM)  809,808t809 

OPRIN 

81 

808 

INCR=“1 

OPRIN 

82 

GO  TO  811 

OPRIN 

83 

809 

IF  (IS-IA)  819,810,819 

OPRIN 

84 

810 

INCR=1 

OPRIN 

85 

811 

CONTINUE 

OPRIN 

86 

IF  (ISL.EQ.O)  INCR=1 

OPRIN 

87 

JJ^KOLUMN 

OPRIN 

88 

JK=K0LUMN+INCR»ISL+1 

OPRIN 

89 

IPDS=0 

OPRIN 

90 

812 

IF  (  IP{ JJ ) .EQ. IPO)  IPDS=  IPDS  +  1 

OPRIN 

91 

IF  (JJ.EO.JK)  GO  TO  813 

OPRIN 

92 

J J=JJ^INCR 

OPRIN 

93 

GO  TO  812 

OPRIN 

94 

813 

ISL=ISL+IPDS 

OPRIN 

95 

814 

CONTINUE 

OPRIN 

96 

IF  (IS.EQ.16)  GO  TO  815 

OPRIN 

97 

IF  (  IS.EQ.32)  GO  TO  816 

OPRIN 

98 

NEWC0L  =  K0LUMN-'1 

OPRIN 

99 

GO  TO  817 

OPRIN 

100 

815 

NEWC0L=K0LUMN+ISL-1 

OPRIN 

101 

GO  TO  817 

OPRIN 

102 

816 

NEWC0L=K0LUMN-ISL-1 

OPRIN 

103 

817 

IF  (  IP(NEWCOL) .EQ.O)  GO  TO  818 

OPRIN 

104 

IF  (IP(NEWCOL).EQ.IPD)  GO  TO  818 

OPRIN 

105 

IZ(NEWCOL)=ISS 

OPRIN 

106 

K0UNT=1 

OPRIN 

107 

818 

IF  (NEWCOL.LE.I )  GO  TO  819 

OPRIN 

108 

NEWC0L=NEWC0L“1 

OPRIN 

109 

GO  TO  817 

OPRIN 

110 

C 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

ill 

819 

XCO=AND( CAS .CODE (LINE) ) 

OPRIN 

112 

IF  (KXCD.NE. IZQ)  K0UNT=1 

OPRIN 

113 

IF  (KOUNT.EQ.O)  RETURN 

OPRIN 

114 

IF  (KXCD. EO. IZO)  GO  TO  820 

OPRIN 

115 

C 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

116 

KXCUT=IARS{6,KXCD) 

OPRIN 

117 

C 

LOGICAL  STATEMENT  FOLLOWS 

OPRIN 

118 

KXC0=KXCD-IALS{6,KXC0T ) 

OPRIN 

119 

41 


o  o  o 


KXCD=KXCD+10*KXCDT  OPRIN  120 

IF  (KXCD.GT.O. AND.KXCD.lt. 67)  IZ ( KXCO ) =NEX I T ( 2 )  OPRIN  121 

C  OPRIN  122 

820  WRITE  (6,821)  U  OPRIN  123 

C  OPRIN  124 

RETURN  OPRIN  125 

OPRIN  126 
OPRIN  127 
OPRIN  128 

821  FORMAT  ( 1H+,48X,66A1  )  OPRIN  129 

end  OPRIN  130 


42 


TABLE  I.  -  INSTRUCTIONS  FOR  PUNCHING  MAPS  PROGRAM  DECK  CARDS 


[Organization  of  the  deck  for  these  cards  is  shown  in  fig.  2.] 


Card  number 

Card  columns 

Description 

FORTRAN  variable 

(as  in  fig.  2) 

name  used  in  READ 

statements 

Program  message  card 

1 

All  80  columns  available  for  any  message.  This  message  will  appear 

HEADNG 

at  the  top  of  every  page. 

Control  card 

2 

1,2 

Locates  vertical  asterisk  cursor  column  (01  to  66)  in 

KOLUMN 

schedule  field.  Blank  eliminates  asterisk. 

4 

Blank  gives  total  program  listing  (using  total  program 

KEND 

mask  in  card  column  8).  One  (1)  gives  total  program 
(using  total  program  mask)  and  summary  listing 
(using  summary  mask  in  card  column  22). 

6 

Blank  gives  slash  (/)  and  need-date  overprint  in  sched- 

IZAM(l) 

field.  One  (1)  suppresses  the  overprint. 

7 

Need  date  symbol.  Blank  gives  ^ .  Nonblank  gives 

IZAM(2) 

character  punched  in  this  column. 

8 

Total  listing  mask  (matched  with  columns  51  to  54  on 

MAINE 

ID  card). 

10,  11 

Flag  column  number  on  ID  card  (51  to  54)  which  is  to 

MAINE 

be  matched  with  masks.  Blank  assume  51. 

22 

Summary  listing  mask  (matched  with  columns  51  to  54 

MASUM 

on  ID  cards). 

32,33 

Suppresses  printing  of  hierarchy  numbers  equal  to  or 

XNPR 

less  than  this  number  (00  to  ZZ), 

35 

One  (1)  gives  a  new  program  deck  sorted  in  order, 

K PUNCH 

with  date  punched  on  asterisk  cards.  Blank  gives 
no  new  deck. 

37 

Blank  permits  printing  of  summary  information  be- 

KTI 

tween  programs.  One  (1)  suppresses  it. 

41 

Blank  permits  printing  of  hierarchy  error  messages 

NOHE 

within  text.  One  (1)  suppresses  it. 

Calendar  heading  cards  (3,4,5) 

3 

1  to  66 

First  line  of  calendar  heading. 

HEADl 

4 

1  to  66 

Second  lino  of  calendar  heading. 

HEAD2 

5 

1  to  66 

Position  of  periods  (.)  which  are  vertical  columns  in 

HEAD3 

schedule  field.  (These  must  be  period  (.)  or  blank. 
Periods  will  supercede  any  other  character  in  the 
schedule  field.) 

Legend  cards  (6,7,8) 

6 

1  to  80 

First  80  characters  of  top  lino  of  legend. 

XLGND 

7 

1  to  40 

Last  40  characters  of  top  line  of  legend. 

XLGND 

41  to  SO 

First  40  characters  of  bottom  line  of  legend. 

8 

1  to  80 

Last  80  characters  of  bottom  line  of  legend 

XLGND 

ID  deck  (total  number  of  cards  cannot  exceed  1000) 

9 

1 

Columns  1  must  always  hav^e  an  S. 

ST 

3  to  11 

Hierarch  number.  Must  start  in  column  3. 

GEN 

13  to  42 

Title  or  description  of  task.  Always  starts  in 

TITLE 

column  13. 

44  to  49 

Person  or  organization  responsible. 

RSP 

51  to  54 

Flag  -  for  special  printout  (see  table  IT). 

CODE 

56  to  58 

Optional  status.  (Prints  in  same  position  on  printout 

STAT 

as  columns  15,  16.  17  on  status  card.  ) 

60  to  65 

Optional  comments.  (Prints  in  same  position  on 

COMENT 

printout  as  columns  23  to  28  on  status  card.  ) 

TABLE  I.  -  Concluded.  INSTRUCTIONS  FOR  PUNCHING  MAPS  PROGRAM  DECK  CARDS 


Card  number 

Card  columns 

Description 

FORTRAN  variable 
name  used  in  READ 

statements 

Asterisk  card 

10 

1 

Single  asterisk  card  {*  in  column  1)  must  always  be 
used  at  the  end  of  the  ID  dock.  Columns  2  to  6 
must  always  be  blank.  Punch  date  of  reproduced 
deck  will  appear  on  this  card. 

ST 

Schedule  cards  (Schedule  deck) 

11 

1  to  6G 

67  to  68 

70  to  78 

Schedule  field.  Any  legal  key  punch  character  may 
be  used  except  period  (.),  asterisk  (*),  or  zero  (0). 
Number  of  column  in  schedule  field  in  which  the  need 
date  symbol  is  to  be  printed  (01  to  66).  May  be 

blank. 

Hierarchy  number.  Must  start  in  column  70. 

SKED 

ANEED 

GENl,  GEN2 

Slash  card 

12 

1 

Slash  in  column  1.  Columns  2  to  6  must  always  be 
blank.  This  card  serves  to  separate  schedule  cards 
from  schedule  updated  cards. 

SKED(l) 

Schedule  update  cards 

13 

Same  as  schedule  cards  (cards  11). 

Asterisk  card 

14 

Same  as  card  10.  This  card  must  always  be  used  even  i 

if  no  schedule  or  schedule  update  cards  are  used. 

SKED(l) 

Status  cards  (Status  deck) 

15 

1 

1  to  9 

15  to  16 

23  to  28 

Hierarchy  number.  Must  start  in  column  1. 

Status  of  form  +NN  where  N  is  a  numeral  0  to  9,  If 
any  other  characters  or  blank  (except  all  3  blank) 
are  used,  slash  overprint  will  be  suppressed. 

Comments,  any  legal  keypunch  character. 

GENl,  GEN2 

WKS 

COTl 

Slash  card 

IG 

Same  as  card  12. 

GENl 

Status  update  cards 

17 

Same  as  status  cards  (cards  15). 

Asterisk  card 

18 

Same  as  card  10.  This  card  must  be  used  even  if  no 
status  or  status  update  cards  are  used. 

GENl 

By-man  cards 

19 

1 

8  to  13 

By -man  mask  (matched  with  columns  51  to  54  on  ID  cards. 
Name  of  responsible  person  spelled  exactly  as  it  appears 

in  columns  44  to  49  of  ID  cards. 

MANL 

XMAN(l) 

Asterisk  card 

20 

Same  as  card  10.  Tins  card  must  bo  used  when  running 
multiple  program  decks  even  if  no  by- man  cards  arc 
used. 

MANL 

TABLE  n.  -  FLAG  CODE  FOR  SELECTIVE  PRINTOUT 


[P  =  PRINT;  N  =  NOT  PRINT] 


Flag  punch 

(ID  card  columns  51  to  54) 

Print  combinations  selected 
by  flag  punch^ 

Summary 

Total 

By-man 

0 

N 

N 

N 

1 

N 

N 

P 

2 

N 

P 

N 

blank  (or  3) 

N 

P 

P 

4 

P 

N 

N 

5 

P 

N 

P 

6 

P 

P 

N 

7 

P 

P 

P 

^Assumes  use  of  built-in  mask  values:  by-man  =  1, 
total  =  2,  summary  =  4. 
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Figure  1,  -  Example  MAPS  printout, 


By-man 

deck 


Figure  2.  -  Single  program  setup  with  card  numbers  keyed  to  table  I  and  text. 
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.  Q=$TUDY  R=REQMTS  $-SPECS  T=TEST  W=SOW  X-DEL  Y-INSTL  Z=APRVl  $=CONTRACT  #-NEEO  DATE  —  =NO  ACTIVITY 

Figure  3.  -  Example  IV\APS  printout  showing  card  information  locations. 
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Figure  4.  -  Listing  of  cards  used  to  produce  figures  1,  3,  5,  and  6. 
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Figure  7.  -  Deck  setup  for  running  multiple  programs. 
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(c)  Failure  and  corrective  action  report  index. 
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LISOT.AIRESEARCH, 

L2087.GE 

I 2086.WESTINGHSE 


06-30-64.03-31-69, 
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COUCH 

DUNvl 

STONE 

M  ILKD 

KAPLAN 

K AYKIY 


Figure  8.  -  Examples  of  various  MAPS  program  uses. 


53 


P>^f)JPCT  DKAWtNG  INveNTt:RY 


1-2-69 


HlEKARCHY 

NUMHfcR 


DESCRi  pr  rn--i 
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(f)  Drawing  file  index. 
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(g)  Component  and  system  test  record. 
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M' - ‘  A  Y  1  r.  •=  xCfiA-iC.-  R  UWI--GA5  TM  LI'  HT  .  EX  .  ♦Rt  CUP-"*' A  TOR 

.  > - )  ’'HXU 
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